請高手們解決幾道PASCAL初級問題

時間 2025-03-21 00:05:23

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

根據您輸入的資訊,進行了全面的分析,傳統起名最好遵從如下原則為佳 五行分析 八字偏弱,八字喜 木 起名最好用五行屬性為 木 的字。生肖分析 蛇,起名宜有 艹 蟲 豆 魚 酉 木 田 山 金 玉 月 土 釒 禾 宀 馬 羊 牛 羽 忄 心 蟲 辶 廴 幾等部首為吉。五格分析 姓氏周的五行屬性是金,姓名...