題1009：溫度轉(zhuǎn)換

1、題1009：溫度轉(zhuǎn)換題9：溫度轉(zhuǎn)換：編一程序，將攝氏溫度換為華氏溫度。公式為：f=9/5*c+32。其中f為華氏溫度,c是攝氏溫度。input 輸入一行，只有一個(gè)整數(shù)coutput 輸出只有一行，包括1個(gè)實(shí)數(shù)。（保留兩位小數(shù)）sample input 50sample output 122.00參考程序program rm7;var c:integer; f:real;begin readln(c); f:=9/5*c+32; write(f:0:2);end.題1010：判斷奇偶數(shù)題10：判斷奇偶數(shù)：輸入一個(gè)整數(shù)，判斷是否為偶數(shù)。是輸出y e s，否則輸出n o。input 輸入只有一行，包

2、括1個(gè)整數(shù)。output 輸出只有一行。sample input 2sample output y e shint ：要注意空格！參考程序program rm10;var a:integer;begin readln(a); if a mod 2= 0 then write(y e s) else write(n o);end.題1011：行禮托運(yùn)價(jià)格題11：行禮托運(yùn)價(jià)格：某車站行李托運(yùn)收費(fèi)標(biāo)準(zhǔn)是：10公斤或10公斤以下，收費(fèi)2.5元，超過10公斤的行李，按每超過1公斤增加1.5元進(jìn)行收費(fèi)。 試編一程序，輸入行李的重量，算出托運(yùn)費(fèi)。input 輸入只有一行，包括1個(gè)整數(shù)。output 輸出只有

3、一行，包括1個(gè)數(shù)。 （保留兩位小數(shù)）sample input 10sample output 2.50參考程序program rm11;var k:integer; v:real;begin readln(k); if kb then write(a) else write(b);end.題1013：判斷成績等級(jí)題13：判斷成績等級(jí)。description 輸入某學(xué)生成績，如果86分以上(包括86分）則輸出“very good” ，如果在60到85之間的則輸出“good”(包括60和85)，小于60的則輸出“bad”。input 輸入只有一行，包括1個(gè)整數(shù)。output 輸出只有一行（這意味著

4、末尾有一個(gè)回車符號(hào)）。sample input 80sample output goodprogram rm12;var a:integer;begin readln(a); if a=86 then write(very good); if (a=60) and (a=85) then write(good); if amax then max:=b; if cmax then max:=c; write(max);end.題1015：求三個(gè)數(shù)的大小順序題15：求三個(gè)數(shù)的大小順序：輸入三個(gè)數(shù)，按由大到小順序打印出來。input 輸入只有一行，包括3個(gè)整數(shù)。之間用一個(gè)空格分開。output 輸

5、出只有一行，包括3個(gè)整數(shù)。之間用一個(gè)空格分開。sample input 3 8 2sample output 8 3 2program rm15;var a,b,c,max,min:integer;begin readln(a,b,c); max:=a;min:=a; if bmax then max:=b; if cmax then max:=c; if bmin then min:=b; if cmin then min:=c; write(max, ); if (amin) and (amax) then write(a, ); if (bmin) and (bmax) then wri

6、te(b, ); if (cmin) and (cmax) then write(c, ); write(min);end.題1016：判斷某年某月的天數(shù)題16：判斷某年某月的天數(shù)-輸入年，月，然后告訴該月有多少天。input 輸入只有一行，包括2個(gè)整數(shù)。之間用一個(gè)空格分開。output 輸出只有一行（這意味著末尾有一個(gè)回車符號(hào)），包括1個(gè)整數(shù)。sample input 2000 2sample output 29（符合以下條件之一的年份即為閏年）1、能被4整除而不能被100整除。（如2100年就不是閏年）2、能被400整除。program rm16;var y,m,d:integer;beg

7、in readln(y,m); case m of 1,3,5,7,8,10,12:d:=31; 4,6,9,11: d:=30; 2: if (y mod 400=0) or (y mod 4=0) and (y mod 1000) then d:=29 else d:=28; end; write(d);end.題1017：任意輸入一個(gè)三位整數(shù)重組后的最大數(shù)題17：任意輸入一個(gè)三位整數(shù)，再把它的次序打亂重新組合一個(gè)新的三位整數(shù)，使其值最大。input 輸入只有一行，包括1個(gè)整數(shù)。output 輸出只有一行（這意味著末尾有一個(gè)回車符號(hào)），包括1個(gè)整數(shù)。sample input 470samp

8、le output 740思路：把三位拆除出來，求出最大、中間、最小program rm4;var x,g,s,b,y,t:integer;begin readln(x); g:=x mod 10; b:=x div 100; s:=x div 10 mod 10; if bs then begin t:=b;b:=s;s:=t; end; if bg then begin t:=b;b:=g;g:=t;end; if sg then begin t:=s;s:=g;g:=t;end; y:=b*100+ s*10+g; write(y);end.題1018：找出最經(jīng)濟(jì)型的包裝箱型號(hào)題18：找

9、出最經(jīng)濟(jì)型的包裝箱型號(hào)-已知有a，b，c，d，e五種包裝箱，為了不浪費(fèi)材料，小于10公斤的用a型，大于等于10公斤小于20公斤的用b型，大于等于20公斤小于40公斤的用c型，大于等于40公斤的小于50公斤的用d型，大于等于50公斤小于80公斤的用e型?，F(xiàn)在輸入一貨物的重量（小于80公斤），找出最經(jīng)濟(jì)型的包裝箱型號(hào)。input 輸入只有一行，包括一個(gè)整數(shù)。output 輸出只有一行（這意味著末尾有一個(gè)回車符號(hào)），包括1個(gè)字符。 sample input 8sample output aprogram rm18;var m:integer; xz:char;begin readln(m); cas

10、e m div 10 of 0:xz:=a; 1:xz:=b; 2,3:xz:=c; 4:xz:=d; 5,6,7:xz:=e; end; write(xz);end.題1019：判斷三個(gè)整數(shù)是否相鄰題19：判斷三個(gè)整數(shù)是否相鄰-判斷三個(gè)整數(shù)是否相鄰，是輸出true，否則輸出false。input 輸入只有一行，包括3個(gè)整數(shù)。output 輸出只有一行。sample input 1 2 3sample output true學(xué)生程序program rm19;var a,b,c,t:integer; q:boolean;begin readln(a,b,c); if ab then begin

11、t:=a;a:=b;b:=t; end; if ac then begin t:=a;a:=c;c:=t;end; if bc then begin t:=b;b:=c;c:=t;end; if (a-b1) or (b-c1) then write(false)else write(true);題1067：【入門】時(shí)間轉(zhuǎn)換description 給定一個(gè)從0秒開始計(jì)時(shí)的秒數(shù)，請(qǐng)將其轉(zhuǎn)換為x:x:x的格式input 輸入一個(gè)秒數(shù)n，且這個(gè)秒數(shù) 0 n 84600output 輸出這個(gè)秒數(shù)對(duì)應(yīng)的時(shí):分:秒sample input 1sample output 00:00:01program ex

12、1067;var a:longint; s,f,m:integer;begin readln(a); s:=a div 3600; a:=a mod 3600; f:=a div 60; m:=a mod 60; if s10 then write(0,s) else write(s); write(:); if f10 then write(0,f) else write(f); write(:); if m10 then write(0,m) else write(m);end.題1068：【入門】心系南方災(zāi)區(qū)description 2008年年初我國南方正在承受百年不遇的大雪、凍雨災(zāi)害。

13、北京市已經(jīng)開始了面向全體市民的捐款捐物活動(dòng)，并組織運(yùn)力，以最快速度將這些救災(zāi)物資運(yùn)送到災(zāi)區(qū)人民的手中。 已知救災(zāi)物資中有m件大衣（10000 m 2000000 ），一輛卡車一次最多可以運(yùn)走n件（2000 n 10000）。請(qǐng)你編寫程序計(jì)算一下，要將所有的大衣運(yùn)走，北京市政府最少需要調(diào)動(dòng)多少輛卡車參與運(yùn)送。 input 只有兩個(gè)整數(shù) m、n 。output 只有一個(gè)整數(shù)，表示需要的卡車數(shù)量。sample input 10000 2000sample output 5source 2008北京市小學(xué)生網(wǎng)上練習(xí)賽第一試（1）program ex1068;var m:longint; n,t,k:i

14、nteger;begin readln(m,n); t:=m mod n; k:=m div n; if t0 then k:=k+1; write(k);end.題1071：【基礎(chǔ)】掃描識(shí)別題1071：【基礎(chǔ)】掃描識(shí)別description “掃描識(shí)別”你知道是怎么回事吧？它的意思就是：先用掃描儀把紙上的文字掃描成一個(gè)圖片，再用識(shí)別軟件把那個(gè)圖片中的文字識(shí)別出來，最后生成一個(gè)文本文件。這對(duì)于需要把大量的紙稿錄入成電子文檔的人來說，當(dāng)然是非常方便的。 以現(xiàn)有的技術(shù)，掃描效果是比較理想的，但識(shí)別效果還不十分另人滿意，經(jīng)常會(huì)出現(xiàn)錯(cuò)誤，尤其是當(dāng)兩個(gè)字形狀特別接近的時(shí)候，而且，這種錯(cuò)誤是很難用眼睛看出

15、來的。 我們的紙稿上有一個(gè)數(shù)字串，識(shí)別之后得到的字符串保存在輸入文件中，這個(gè)串可能有識(shí)別錯(cuò)誤。已知，可能出現(xiàn)的錯(cuò)誤有如下幾種： 1、把數(shù)字0錯(cuò)誤地識(shí)別為大寫字母o； 2、把數(shù)字1錯(cuò)誤地識(shí)別為小寫字母l； 3、把數(shù)字2錯(cuò)誤地識(shí)別為大寫字母z； 4、把數(shù)字5錯(cuò)誤地識(shí)別為大寫字母s； 5、把數(shù)字6錯(cuò)誤地識(shí)別為小寫字母b； 6、把數(shù)字8錯(cuò)誤地識(shí)別為大寫字母b； 7、把數(shù)字9錯(cuò)誤地識(shí)別為小寫字母q。 你的改正方案是：如果字符串中出現(xiàn)了上述字母，請(qǐng)?zhí)鎿Q為原來的數(shù)字。最后把改正之后的數(shù)字串輸出。input 只有一個(gè)字符串，表示識(shí)別后得到的字符串。串的長度不超過100。output 只有一個(gè)數(shù)字串，表示改正后

16、的數(shù)字串。sample input 321lo88bqssample output 3211088895source 2008年北京市小學(xué)生程序設(shè)計(jì)網(wǎng)上練習(xí)賽一試試題（4）program ex1071;var st:string100; i,len:integer;begin readln(st); len:=length(st); for i:=1 to len do case sti of o:sti:=0; l:sti:=1; z:sti:=2; s:sti:=5; b:sti:=6; b:sti:=8; q:sti:=9; end; write(st);end.題1098【入門】今天星

17、期幾題1098【入門】今天星期幾description 編一程序?qū)崿F(xiàn)：由輸入年以后的任意一個(gè)日期后，計(jì)算機(jī)能打印出該日期是星期幾。 日期肯定合法，絕不會(huì)出現(xiàn)類似年月日的情況 已知年月日是星期二。 input 年 月 日 日期有3個(gè)整數(shù)組成，中間用空格隔開 output 一個(gè)整數(shù)星期 星期用1 2 3 4 5 6 7表示 （若是星期日就輸出7） sample input 2009 1 2sample output 5program ex1098;var m,d,xq:integer; y,s,t,i:longint;begin read(y,m,d); t:=0; for i:=1980 to

18、y-1 do if (i mod 400=0) or (i mod 4=0) and (i mod 1000) then inc(t); s:=(y-1980) *365+t; for i:=1 to m-1 do case i of 1,3,5,7,8,10,12:s:=s+31; 4,6,9,11:s:=s+30; 2: if (y mod 400=0) or (y mod 4=0) and (y mod 1000) then s:=s+29 else s:=s+28; end; s:=s+(d-1); xq:=(s mod 7+2) mod 7 ; if xq=0 then xq:=7;

19、 write(xq);end.題1183：【入門】判斷能否構(gòu)成三角形description 輸入三個(gè)整數(shù)，表示3條線段的長度，判斷這三條線段能否構(gòu)成三角形。能構(gòu)成就輸出yes，否則輸出no。input 三個(gè)整數(shù)output yes or nosample input 3 8 5sample output noprogram ex1193;var a,b,c:longint;begin readln(a,b,c); if (a+bc) and (a+cb) and (b+ca) then write(yes) else write(no);end.題1769：【入門】漢譯英description

20、 輸入某個(gè)整數(shù)，如果輸入的整數(shù)在1-9范圍內(nèi)，則輸出相對(duì)應(yīng)的單詞，否則輸出outinput 一行，一個(gè)整數(shù)n。output 整數(shù)n相對(duì)應(yīng)的小寫英文單詞或out。sample input 1sample output onesourceprogram ex1769;var a:longint; st:string;begin readln(a); case a of 1:st:=one; 2:st:=two; 3:st:=three; 4:st:=four; 5:st:=five; 6:st:=six; 7:st:=seven; 8:st:=eight; 9:st:=nine; else st:

21、=out ; end; write(st);end.題1290：【入門】行李托運(yùn)費(fèi)description 車站行李托運(yùn)費(fèi)標(biāo)準(zhǔn)是：10千克或10千克以下，每千克收費(fèi)1.5元，超過10千克的行李，按每超過1千克增加2.5元進(jìn)行收費(fèi)。試編一程序，輸入行李的托運(yùn)費(fèi)，算出行李的重量。input 讀入一個(gè)實(shí)型值，表示行李的托運(yùn)費(fèi)。output 一個(gè)實(shí)型數(shù)，即行李的重量，保留兩位小數(shù)。sample input 3sample output 2.00program ex1290;var m,g:real;begin readln(m); if mc) and (b+ca) and (c+ab) then be

22、gin if ab then begin t:=a;a:=b;b:=t; end; if ac then begin t:=a;a:=c;c:=t; end; if b*b+c*c=a*a then writeln(b*c/2:0:1) else writeln(no); end else write(no) ;end.題1301：【入門】比賽日期description 校運(yùn)會(huì)馬上就要開始了，為了讓同學(xué)們做好參賽準(zhǔn)備，現(xiàn)在告訴你這個(gè)日期的前一天，你能編程輸出校運(yùn)會(huì)開始的日期嗎？input 一行，一個(gè)日期，格式為：月 日 年。（日期合法，不用判錯(cuò)）output 一行，即比賽的日期，格式為：月/日

23、/年。sample input 5 25 2009sample output 5/26/2009sourceprogram ex1301;var n,y,d:integer;begin readln(y,d,n); if (y=12) and (d=31) then begin n:=n+1;y:=1;d:=1;end else case y of 1,3,5,7,8,10,12:if d31 then d:=d+1 else begin d:=1;y:=y+1 end; 4,6,9,11:if d30 then d:=d+1 else begin d:=1;y:=y+1; end; 2: i

24、f (n mod 400=0) or (n mod 4=0) and (n mod 1000) then if d=29 then begin y:=y+1;d:=1; end else d:=d+1 else if d=28 then begin y:=y+1;d:=1; end else d:=d+1; end; writeln(y,/,d,/,n);end.題1574：【入門】判奇偶求和題1574：【入門】判奇偶求和description 輸入一個(gè)正整數(shù)n,如果n是奇數(shù),則求1-n之間所有的偶數(shù)之和；如果n是偶數(shù),則求n所有的約數(shù)之和(包括1和本身)。input 一行，一個(gè)整數(shù)n（0ou

25、tput 一行，一個(gè)整數(shù)。sample input 89sample output 1980program ex1574;var i,t,s,n:longint;begin readln(n); s:=0;t:=0; if n mod 20 then while t=n do begin s:=s+t; t:=t+2; end else for i:=1 to n do if n mod i=0 then s:=s+i; writeln(s);end.題1576：【入門】周末大優(yōu)惠description 商場周末大優(yōu)惠，規(guī)定凡購物總價(jià)超過100元時(shí)，超過100的那部分便可以打9折。小冬冬和媽媽

26、一起購買了一大批物品，你能幫他算出最終的應(yīng)付款嗎？input 一行，空格隔開的若干個(gè)整數(shù)，以0結(jié)束。output 一行，一個(gè)小數(shù)（保留三位小數(shù)）。sample input 4 5 8 9 0program ex1576;var x,s,m:real;begin read(x); s:=0; while x0 do begin s:=s+x; read(x); end; if s=100 then writeln(s:0:3) else writeln(100+(s-100)*0.9:0:3)end.題1578：【入門】求零件個(gè)數(shù)題1578：【入門】求零件個(gè)數(shù)description 有一堆100

27、多個(gè)的零件，若三個(gè)三個(gè)數(shù)，剩二個(gè)；若五個(gè)五個(gè)數(shù)，剩三個(gè)；若七個(gè)七個(gè)數(shù)，剩五個(gè)。請(qǐng)你編一個(gè)程序計(jì)算出這堆零件至少是多少個(gè)？ input 無output 一行，一個(gè)整數(shù)。program ex1578;var i:integer;begin for i:=100 to 199 do if (i mod 3=2) and (i mod 5=3) and (i mod 7=5) then writeln(i);end.題1635：【入門】輸出奇數(shù)和偶數(shù)題1635：【入門】輸出奇數(shù)和偶數(shù)description 輸入n個(gè)整數(shù)，將其中的奇數(shù)和偶數(shù)分別顯示出來（1 n 30）input 第一行：一個(gè)整數(shù)n。 第

28、二行：n個(gè)空格隔開的整數(shù)。output 第一行：若干個(gè)奇數(shù)。 第二行：若干個(gè)偶數(shù)。sample input 1021 12 33 43 59 68 77 18 19 40sample output 21 33 43 59 77 1912 68 18 40program ex1635;var n,i,j,k:integer; x:longint; a,b:array1.30 of longint;begin readln(n); j:=1;k:=1; for i:=1 to n do begin read(x); if x mod 20 then begin aj:=x;inc(j);end e

29、lse begin bk:=x;inc(k);end; end; for i:=1 to j-1 do write(ai, ); writeln; for i:=1 to k-1 do write(bi, );end.題1758：【入門】恐龍園買門票題1758：【入門】恐龍園買門票description 恐龍園買門票，身高1.3米以下購兒童票(60元)，否則成人票120元。 試編寫一個(gè)程序，輸入身高，輸出相應(yīng)的門票價(jià)格。input 一行，一個(gè)人的身高。output 一行，一個(gè)整數(shù)sample input 1.1sample output 60program ex1758;var n:real;

30、begin readln(n); if n1.3 then write(60) else write(120);end.題1794：【入門】角谷猜想題1794：【入門】角谷猜想description 日本一位中學(xué)生發(fā)現(xiàn)一個(gè)奇妙的定理，請(qǐng)角谷教授證明，而教授無能為力，于是產(chǎn)生了角谷猜想。猜想的內(nèi)容：任給一個(gè)自然數(shù)，若為偶數(shù)則除以2，若為奇數(shù)則乘3加1，得到一個(gè)新的自然數(shù)后按上面的法則繼續(xù)演算。若干次后得到的結(jié)果必為1。請(qǐng)編寫代碼驗(yàn)證該猜想：求經(jīng)過多少次運(yùn)算可得到自然數(shù)1。 如：輸入22， 22/2=11 11*3+1=34 34/2=17 17*3+1=52 52/2=26 26/2=13 13

31、*3+1=40 40/2=20 20/2=10 10/2=5 5*3+1=16 16/2=8 8/2=4 4/2=2 2/2=1 經(jīng)過15次運(yùn)算得到自然數(shù)1。input 一行，一個(gè)正整數(shù)n。（1 = n = 20000 )output 一行，一個(gè)整數(shù)，表示得到1所用的運(yùn)算次數(shù)。sample input 22sample output 15program ex1794;var n,t:longint;begin readln(n); t:=0; while n1 do begin if n mod 2=0 then n:=n div 2 else n:=n*3+1; inc(t); end; w

32、riteln(t);end.題1796：【入門】喜羊羊運(yùn)動(dòng)會(huì)訓(xùn)練時(shí)間題1796：【入門】喜羊羊運(yùn)動(dòng)會(huì)訓(xùn)練時(shí)間description 這次運(yùn)動(dòng)會(huì)開幕式要進(jìn)行團(tuán)體操表演，于是喜羊羊召集大家緊鑼密鼓地訓(xùn)練了起來，懶羊羊也在被召集之列。喜羊羊規(guī)定了每天的訓(xùn)練時(shí)間，只準(zhǔn)早到，不許遲到，而且喜羊羊會(huì)做相關(guān)記錄。這下懶羊羊可慘了，他雖然設(shè)定了鬧鐘，可是他動(dòng)作慢，老遲到。 現(xiàn)給出若干天的規(guī)定到場時(shí)間與懶羊羊的到場時(shí)間記錄，判斷每天懶羊羊有無及時(shí)趕到訓(xùn)練場，以及遲到或早到的時(shí)間。input 每兩行時(shí)間為一組，每組中的第一行時(shí)間為規(guī)定的訓(xùn)練時(shí)間，第二行為懶羊羊到達(dá)訓(xùn)練場的時(shí)間。每行有兩個(gè)整數(shù)h和m，h是以24小時(shí)

33、記時(shí)法表示的小時(shí)數(shù)（0 = h = 24），m表示分鐘數(shù)（0 = m = 59）。每組中的兩個(gè)時(shí)間表示的是同一天的兩個(gè)時(shí)間。若干組時(shí)間后以-1表示結(jié)束。output 若干行，如果這一天懶羊羊及時(shí)到達(dá)了訓(xùn)練場，則輸出yes及早到的分鐘數(shù)；如果沒有及時(shí)到達(dá)，則輸出no及遲到的分鐘數(shù)。sample input 14 3014 258 09 013 1012 507 257 25-1sample output yes 5no 60yes 20yes 0hint 輸入輸出說明： 第一天第二天第三天第四天規(guī)定訓(xùn)練時(shí)間14：308：0013：107：25到場時(shí)間 14：259：0012：507：25有無及時(shí)

34、到達(dá)yesnoyesyes早到或遲到分鐘數(shù)560200source 武進(jìn)區(qū)夏令營程序設(shè)計(jì)小能手pkprogram ex1796;var h1,n1,h2,n2,s1,s2:integer;begin read(h1); while h1-1 do begin read(n1); s1:=h1*60+n1; read(h2);read(n2); s2:=h2*60+n2; if s2=s1 then writeln(yes, ,s1-s2) else writeln(no, ,s2-s1); read(h1); end;end.題1283：【入門】簡單判斷題1283：【入門】簡單判斷descri

35、ption 讀入三個(gè)整數(shù)a、b、c（ 0 a，b，c c then write(yes) else write(no);end.題1284：【入門】偶數(shù)和題1284：【入門】偶數(shù)和description 讀入班里兩位同學(xué)的生日，即兩行年y、月m、日d（1990y2000，1m12，1n31，數(shù)據(jù)保證合法，不需判斷），數(shù)據(jù)之間用空格隔開，求兩位同學(xué)生日中的日之間的偶數(shù)和。input 兩行，每行三個(gè)數(shù)，即年 月 日output 一行，一個(gè)整數(shù)。sample input 1996 6 51997 10 10sample output 24hint 因?yàn)?到10之間有三個(gè)偶數(shù)：6、8、10source

36、 武進(jìn)區(qū)中級(jí)班測驗(yàn)program ex1284;var y1,m1,d1,y2,m2,d2,t,s,i:integer;begin readln(y1,m1,d1); readln(y2,m2,d2); s:=0; if d1d2 then begin t:=d1;d1:=d2;d2:=t; end; for i:=d1 to d2 do if i mod 2=0 then s:=s+i; write(s);end.題1285：【入門】是否是連續(xù)奇數(shù)題1285：【入門】是否是連續(xù)奇數(shù)description 貧民窟的百萬富翁獲得2009年美國奧斯卡最佳影片，影片的主人公是一個(gè)叫賈馬爾的小男孩，他

37、在貧民窟長大，后來他參加了一檔印度版的誰想成為百萬富翁電視直播節(jié)目，他的特殊成長經(jīng)歷居然使他能夠回答這個(gè)節(jié)目中的每一個(gè)問題，最后成功獲得百萬獎(jiǎng)金。其中有一個(gè)題目是這樣的：讀入四個(gè)整數(shù)（0每個(gè)整數(shù)50000），判斷這四個(gè)整數(shù)能否構(gòu)成連續(xù)的四個(gè)奇數(shù)，如果可以就輸出三行，每行一個(gè)等式，每個(gè)等式都滿足“前一個(gè)數(shù)+2=后一個(gè)數(shù)”，否則請(qǐng)將這四個(gè)整數(shù)從大到小輸出（數(shù)據(jù)之間以一個(gè)空格隔開）。input 一行，四個(gè)空格隔開的整數(shù)。（ 0 每個(gè)整數(shù) aj then begin t:=ai;ai:=aj;aj:=t; end; i:=1; while (i4) and (ai+2=ai+1) do inc(i); if (i=4) and (a1 mod 20) then begin writeln(a1,+,2,=,a2); writeln(a2,+,2,=,a3); writeln(a3,+,2,=,a4); exit; end; for i:=4 downto 1 do write(ai, );end.題1783：【入門】小高考題1783：【入