1樓:網友
var a,b,c,d,e:integer;
beginreadln(a,b);
if a<>b then
beginif ab
c:=a mod b;
while c<>0 do//輾轉相除。
begina:=b;b:=c;
c:=a mod b;
end; e:=b;
writeln('e=',e);
end else writeln('e=',1);
end. 原理:如果兩個數有最大公約數a,那麼這兩個數,以及這兩個數的差,還有大數除以小數的餘數,必然都是a的倍數。
所以當最後兩個數剛好能整除時,較小的數就是最大公約數。
var total,l,i,temp:integer;st:string;
beginreadln(st);
total:=0;l:=length(st);
for i:=l downto 1 do
if st[i]='1' then begin
temp:=1;
for j:=1 to l-i do temp:=temp*2;
inc(total,temp);
end; writeln(total); end.
var total,i:integer;
begintotal:=0;
for i:=1 to 50 do inc(total,i);
writeln(total*2);
end.//1到100的偶數就是2 4 6...分別是1 2 3...的2倍。
所以直接由1加到50就可以了。
zs,fs,lin,i:byte;c:integer;
zs:=0;fs:=0;lin:=0;
for i:=1 to 15 do begin
read(c);
if c>0 then inc(zs) else
if c<0 then inc(fs) else
inc(lin);
end; writeln('total num above 0:',zs);
writeln('total num below 0:',fs);
writlen('total num equal to 0:',lin);
end. 者:匿名 4-23 13:53" 你幹嗎要抄襲我的。
2樓:網友
3.題 從1加到100 再加上100 ,然後除以2,不用判斷是否問奇偶數,速度也會比判斷是否奇偶數快。 ^
pascal的一題選擇題
3樓:網友
d無論是字元還是字串 都需要英文單引號來標記 因此b,c排除。
a是乙個字串 無法成為 字元的資料 因此a排除。
所以d是正確答案 字元型資料可以為空值 且此時若一char變數賦值為''''時 該變數值為(』)
4樓:甲兔蓮
da的第乙個字元是中文單引號,字串必須以英文單引號開始。
b是數值型資料。
c是變數。
請法學高手們解決以下問題
1 問題不同清楚。是不是講不同的人在不同類商品上註冊並使用相同或近似商標?除馳名商標是跨商品類別保護外,一般知名度的商標僅在同類商品範圍內進行保護。2 商品購買離店後,本店一概不予退換。根據產品質量法,消法及商品三包方面的規定,銷售者有在一定期限和條件下退換商品的義務。3 未必。作為技術秘密進行利用...
哪位化學高手幫我解決幾道題!!!!謝謝了!!!!
ch ch hbr chchbr ch ch和四氯化碳不反應。ch br chbr her 三價鐵催化 ch hno chno ho 濃硫酸催化 ch h ch 鎳催化 choh na chna hchoh c ho chcooh choh chcooch h 濃硫酸催化 ch n nh nch 稀...
請高手們幫我妹妹取個名字,請高手們幫我妹妹取個名字。。 10
根據您輸入的資訊,進行了全面的分析,傳統起名最好遵從如下原則為佳 五行分析 八字偏弱,八字喜 木 起名最好用五行屬性為 木 的字。生肖分析 蛇,起名宜有 艹 蟲 豆 魚 酉 木 田 山 金 玉 月 土 釒 禾 宀 馬 羊 牛 羽 忄 心 蟲 辶 廴 幾等部首為吉。五格分析 姓氏周的五行屬性是金,姓名...