题1009温度转换

1、题1009：温度转换题9：温度转换：编一程序，将摄氏温度换为华氏温度。公式为：f=9/5*c+32。其中f为华氏温度,c是摄氏温度。input 输入一行，只有一个整数coutput 输出只有一行，包括1个实数。（保留两位小数）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：判断奇偶数题10：判断奇偶数：输入一个整数，判断是否为偶数。是输出"y e s"

2、;，否则输出"n o"。input 输入只有一行，包括1个整数。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：行礼托运价格题11：行礼托运价格：某车站行李托运收费标准是：10公斤或10公斤以下，收费2.5元，超过10公斤的行李，按每

3、超过1公斤增加1.5元进行收费。 试编一程序，输入行李的重量，算出托运费。input 输入只有一行，包括1个整数。output 输出只有一行，包括1个数。 （保留两位小数）sample input 10sample output 2.50  参考程序program rm11;var k:integer; v:real;begin readln(k); if k<=10 then v:=2.5 else v:=(k-10)*1.5+2.5; write(v:0:2);end.题1012：两数比大小题12：两数比大小：有a，b两个不相等的数，请将其中较大数打印出来。inp

4、ut 输入只有一行，包括2个整数。之间用一个空格分开。output 输出只有一行（这意味着末尾有一个回车符号），包括1个整数。sample input 45 78sample output 78  program rm12;var a,b:integer;begin readln(a,b); if a>b then write(a) else write(b);end.题1013：判断成绩等级题13：判断成绩等级。description 输入某学生成绩，如果86分以上(包括86分）则输出“very good” ，如果在60到85之间的则输出“good”(包括60和85

5、)，小于60的则输出“bad”。input 输入只有一行，包括1个整数。output 输出只有一行（这意味着末尾有一个回车符号）。sample input 80sample output good   program rm12;var a:integer;begin readln(a); if a>=86 then write('very good'); if (a>=60) and (a<=85) then write('good'); if a<60 then write('bad');e

6、nd.题1014：求三个数的最大数题14：求三个数的最大数已知有三个不等的数，将其中的最大数找出来。input 输入只有一行，包括3个整数。之间用一个空格分开。output 输出只有一行（这意味着末尾有一个回车符号），包括1个整数。sample input 1 5 8sample output 8  program rm14;var a,b,c,max:integer;begin readln(a,b,c); max:=a; if b>max then max:=b; if c>max then max:=c; write(max);end.题1015：求三个数

7、的大小顺序题15：求三个数的大小顺序：输入三个数，按由大到小顺序打印出来。input 输入只有一行，包括3个整数。之间用一个空格分开。output 输出只有一行，包括3个整数。之间用一个空格分开。sample input 3 8 2sample output 8 3 2  program rm15;var a,b,c,max,min:integer;begin readln(a,b,c); max:=a;min:=a; if b>max then max:=b; if c>max then max:=c; if b<min then min:=b; if

8、c<min then min:=c; write(max,' '); if (a<>min) and (a<>max) then write(a,' '); if (b<>min) and (b<>max) then write(b,' '); if (c<>min) and (c<>max) then write(c,' '); write(min);end.题1016：判断某年某月的天数题16：判断某年某月的天数-输入年，月，然后告诉该月有多少天。i

9、nput 输入只有一行，包括2个整数。之间用一个空格分开。output 输出只有一行（这意味着末尾有一个回车符号），包括1个整数。sample input 2000 2sample output 29（符合以下条件之一的年份即为闰年）1、能被4整除而不能被100整除。（如2100年就不是闰年）2、能被400整除。  program rm16;var y,m,d:integer;begin 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

10、=0) and (y mod 100<>0) then d:=29 else d:=28; end; write(d);end.题1017：任意输入一个三位整数重组后的最大数题17：任意输入一个三位整数，再把它的次序打乱重新组合一个新的三位整数，使其值最大。input 输入只有一行，包括1个整数。output 输出只有一行（这意味着末尾有一个回车符号），包括1个整数。sample input 470sample output 740  思路：把三位拆除出来，求出最大、中间、最小program rm4;var x,g,s,b,y,t:integer;begin r

11、eadln(x); g:=x mod 10; b:=x div 100; s:=x div 10 mod 10; if b<s then begin t:=b;b:=s;s:=t; end; if b<g then begin t:=b;b:=g;g:=t;end; if s<g then begin t:=s;s:=g;g:=t;end; y:=b*100+ s*10+g; write(y);end.题1018：找出最经济型的包装箱型号题18：找出最经济型的包装箱型号-已知有a，b，c，d，e五种包装箱，为了不浪费材料，小于10公斤的用a型，大于等于10公斤小于20公斤的用

12、b型，大于等于20公斤小于40公斤的用c型，大于等于40公斤的小于50公斤的用d型，大于等于50公斤小于80公斤的用e型。现在输入一货物的重量（小于80公斤），找出最经济型的包装箱型号。input 输入只有一行，包括一个整数。output 输出只有一行（这意味着末尾有一个回车符号），包括1个字符。 sample input 8sample output a  program rm18;var m:integer; xz:char;begin readln(m); case m div 10 of 0:xz:='a' 1:xz:='b' 2,3

13、:xz:='c' 4:xz:='d' 5,6,7:xz:='e' end; write(xz);end.题1019：判断三个整数是否相邻题19：判断三个整数是否相邻-判断三个整数是否相邻，是输出"true"，否则输出"false"。input 输入只有一行，包括3个整数。output 输出只有一行。sample input 1 2 3sample output true  学生程序program rm19;var a,b,c,t:integer; q:boolean;begin read

14、ln(a,b,c); if a<b then begin t:=a;a:=b;b:=t; end; if a<c then begin t:=a;a:=c;c:=t;end; if b<c then begin t:=b;b:=c;c:=t;end; if (a-b<>1) or (b-c<>1) then write('false')else write('true');题1067：【入门】时间转换description 给定一个从0秒开始计时的秒数，请将其转换为x:x:x的格式input 输入一个秒数n，且这个秒数

15、0 < n < 84600output 输出这个秒数对应的时:分:秒sample input 1sample output 00:00:01program ex1067;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 s<10 then write('0',s) else write(s); write(':'); if f<10 then write('0',f

16、) else write(f); write(':'); if m<10 then write('0',m) else write(m);end.题1068：【入门】心系南方灾区description 2008年年初我国南方正在承受百年不遇的大雪、冻雨灾害。北京市已经开始了面向全体市民的捐款捐物活动，并组织运力，以最快速度将这些救灾物资运送到灾区人民的手中。 已知救灾物资中有m件大衣（10000 < m < 2000000 ），一辆卡车一次最多可以运走n件（2000 < n < 10000）。请你编写程序计算一下，要将所有的大衣运走

17、，北京市政府最少需要调动多少辆卡车参与运送。 input 只有两个整数 m、n 。output 只有一个整数，表示需要的卡车数量。sample input 10000 2000sample output 5source 2008北京市小学生网上练习赛第一试（1）  program ex1068;var m:longint; n,t,k:integer;begin readln(m,n); t:=m mod n; k:=m div n; if t<>0 then k:=k+1; write(k);end.题1071：【基础】扫描识别题1071：【基础】扫描识别de

18、scription “扫描识别”你知道是怎么回事吧？它的意思就是：先用扫描仪把纸上的文字扫描成一个图片，再用识别软件把那个图片中的文字识别出来，最后生成一个文本文件。这对于需要把大量的纸稿录入成电子文档的人来说，当然是非常方便的。 以现有的技术，扫描效果是比较理想的，但识别效果还不十分另人满意，经常会出现错误，尤其是当两个字形状特别接近的时候，而且，这种错误是很难用眼睛看出来的。 我们的纸稿上有一个数字串，识别之后得到的字符串保存在输入文件中，这个串可能有识别错误。已知，可能出现的错误有如下几种： 1、把数字0错误地识别为大写字母o； 2、把数字1错误地识别为小写字母l； 3、把数字2错误地识

19、别为大写字母z； 4、把数字5错误地识别为大写字母s； 5、把数字6错误地识别为小写字母b； 6、把数字8错误地识别为大写字母b； 7、把数字9错误地识别为小写字母q。 你的改正方案是：如果字符串中出现了上述字母，请替换为原来的数字。最后把改正之后的数字串输出。input 只有一个字符串，表示识别后得到的字符串。串的长度不超过100。output 只有一个数字串，表示改正后的数字串。sample input 321lo88bqssample output 3211088895source 2008年北京市小学生程序设计网上练习赛一试试题（4）program ex1071;var st:stri

20、ng100; 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

21、(st);end.题1098【入门】今天星期几题1098【入门】今天星期几description 编一程序实现：由输入年以后的任意一个日期后，计算机能打印出该日期是星期几。 日期肯定合法，绝不会出现类似年月日的情况 已知年月日是星期二。 input 年 月 日 日期有3个整数组成，中间用空格隔开 output 一个整数星期 星期用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);

22、t:=0; for i:=1980 to y-1 do if (i mod 400=0) or (i mod 4=0) and (i mod 100<>0) 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 100<>0) then s:=s+29 else s:=s+28; end; s:=s+(d-1); xq:=(s

23、 mod 7+2) mod 7 ; if xq=0 then xq:=7; write(xq);end.题1183：【入门】判断能否构成三角形description 输入三个整数，表示3条线段的长度，判断这三条线段能否构成三角形。能构成就输出'yes'，否则输出'no'。input 三个整数output yes or nosample input 3 8 5sample output noprogram ex1193;var a,b,c:longint;begin readln(a,b,c); if (a+b>c) and (a+c>b) and (

24、b+c>a) then write('yes') else write('no');end.题1769：【入门】汉译英description 输入某个整数，如果输入的整数在1-9范围内，则输出相对应的单词，否则输出'out'input 一行，一个整数n。output 整数n相对应的小写英文单词或'out'。sample input 1sample output onesourceprogram ex1769;var a:longint; st:string;begin readln(a); case a of 1:st:=&

25、#39;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:='out' ; end; write(st);end.题1290：【入门】行李托运费description 车站行李托运费标准是：10千克或10千克以下，每千克收费1.5元，超过10千克的行李，按每超过

26、1千克增加2.5元进行收费。试编一程序，输入行李的托运费，算出行李的重量。input 读入一个实型值，表示行李的托运费。output 一个实型数，即行李的重量，保留两位小数。sample input 3sample output 2.00program ex1290;var m,g:real;begin readln(m); if m<=15 then g:=m/1.5 else g:=(m-15)/2.5+10; write(g:0:2);end.题1291：【入门】能否构成直角三角形description 判定三条线段a，b，c能否构成一个直角三角形。如果能构成，请计算出面积（保留一

27、位小数），不然输出'no'。input 一行，三个整数。output 面积（保留一位小数） 或 nosample input 样例1：3 4 5样例2：1 2 3sample output 样例1：6.0样例2：nohint 满足a2+b2=c2，即是直角三角形。program ex1291;var a,b,c,t,i:integer;begin readln(a,b,c); if (a+b>c) and (b+c>a) and (c+a>b) then begin if a<b then begin t:=a;a:=b;b:=t; end; if a&

28、lt;c 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 校运会马上就要开始了，为了让同学们做好参赛准备，现在告诉你这个日期的前一天，你能编程输出校运会开始的日期吗？input 一行，一个日期，格式为：月 日 年。（日期合法，不用判错）output 一行，即比赛的日期，格式为：月/日/年。sample input 5 25 20

29、09sample 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 d<>31 then d:=d+1 else begin d:=1;y:=y+1 end; 4,6,9,11:if d<>30 then d:=d+1 else begin d:=1;y:=y+1; end; 2: if (n mo

30、d 400=0) or (n mod 4=0) and (n mod 100<>0) 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 输入一个正整数n,如果n是奇数,则求1-n之间所有的偶数之和；如果n是偶数,则求n所有的约数之和(包括1和本

31、身)。input 一行，一个整数n（0output 一行，一个整数。sample input 89sample output 1980program ex1574;var i,t,s,n:longint;begin readln(n); s:=0;t:=0; if n mod 2<>0 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：【入门】周末大优惠description 商场周末大优惠，规定凡购

32、物总价超过100元时，超过100的那部分便可以打9折。小冬冬和妈妈一起购买了一大批物品，你能帮他算出最终的应付款吗？input 一行，空格隔开的若干个整数，以0结束。output 一行，一个小数（保留三位小数）。sample input 4 5 8 9 0program ex1576;var x,s,m:real;begin read(x); s:=0; while x<>0 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.题15

33、78：【入门】求零件个数题1578：【入门】求零件个数description 有一堆100多个的零件，若三个三个数，剩二个；若五个五个数，剩三个；若七个七个数，剩五个。请你编一个程序计算出这堆零件至少是多少个？ input 无output 一行，一个整数。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：【入门】输出奇数和偶数题1635：【入门】输出奇数和偶数description 输入n

34、个整数，将其中的奇数和偶数分别显示出来（1 < n < 30）input 第一行：一个整数n。 第二行：n个空格隔开的整数。output 第一行：若干个奇数。 第二行：若干个偶数。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 b

35、egin read(x); if x mod 2<>0 then begin aj:=x;inc(j);end else 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元。 试编写一个程序，输入身高，输出相应的门票价格。input

36、 一行，一个人的身高。output 一行，一个整数sample input 1.1sample output 60program ex1758;var n:real;begin readln(n); if n<1.3 then write(60) else write(120);end.题1794：【入门】角谷猜想题1794：【入门】角谷猜想description 日本一位中学生发现一个奇妙的定理，请角谷教授证明，而教授无能为力，于是产生了角谷猜想。猜想的内容：任给一个自然数，若为偶数则除以2，若为奇数则乘3加1，得到一个新的自然数后按上面的法则继续演算。若干次后得到的结果必为1。请编写

37、代码验证该猜想：求经过多少次运算可得到自然数1。 如：输入22， 22/2=11 11*3+1=34 34/2=17 17*3+1=52 52/2=26 26/2=13 13*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 经过15次运算得到自然数1。input 一行，一个正整数n。（1 <= n <= 20000 )output 一行，一个整数，表示得到1所用的运算次数。sample input 22sample output 15program ex1794;var n,t:longint;begi

38、n readln(n); t:=0; while n<>1 do begin if n mod 2=0 then n:=n div 2 else n:=n*3+1; inc(t); end; writeln(t);end.题1796：【入门】喜羊羊运动会训练时间题1796：【入门】喜羊羊运动会训练时间description 这次运动会开幕式要进行团体操表演，于是喜羊羊召集大家紧锣密鼓地训练了起来，懒羊羊也在被召集之列。喜羊羊规定了每天的训练时间，只准早到，不许迟到，而且喜羊羊会做相关记录。这下懒羊羊可惨了，他虽然设定了闹钟，可是他动作慢，老迟到。 现给出若干天的规定到场时间与懒羊羊

39、的到场时间记录，判断每天懒羊羊有无及时赶到训练场，以及迟到或早到的时间。input 每两行时间为一组，每组中的第一行时间为规定的训练时间，第二行为懒羊羊到达训练场的时间。每行有两个整数h和m，h是以24小时记时法表示的小时数（0 <= h <= 24），m表示分钟数（0 <= m <= 59）。每组中的两个时间表示的是同一天的两个时间。若干组时间后以-1表示结束。output 若干行，如果这一天懒羊羊及时到达了训练场，则输出yes及早到的分钟数；如果没有及时到达，则输出no及迟到的分钟数。sample input 14 3014 258 09 013 1012 507

40、257 25-1sample output yes 5no 60yes 20yes 0hint 输入输出说明： 第一天第二天第三天第四天规定训练时间14：308：0013：107：25到场时间 14：259：0012：507：25有无及时到达yesnoyesyes早到或迟到分钟数560200source 武进区夏令营程序设计小能手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);

41、s2:=h2*60+n2; if s2<=s1 then writeln('yes',' ',s1-s2) else writeln('no',' ',s2-s1); read(h1); end;end.题1283：【入门】简单判断题1283：【入门】简单判断description 读入三个整数a、b、c（ 0 < a，b，c < 10000 ），数据之间用空格隔开，如果前两个数a、b的和大于第三个数c，那么就输出“yes”，否则就输出“no”。input 一行，三个整数a b coutput yes or no

42、sample input 5 6 7sample output yessource 武进区中级班测验program ex1803;var a,b,c:integer;begin readln(a,b,c); if a+b>c then write('yes') else write('no');end.题1284：【入门】偶数和题1284：【入门】偶数和description 读入班里两位同学的生日，即两行年y、月m、日d（1990y2000，1m12，1n31，数据保证合法，不需判断），数据之间用空格隔开，求两位同学生日中的日之间的偶数和。input 两

43、行，每行三个数，即年 月 日output 一行，一个整数。sample input 1996 6 51997 10 10sample output 24hint 因为5到10之间有三个偶数：6、8、10source 武进区中级班测验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 d1>d2 then begin t:=d1;d1:=d2;d2:=t; end; for i:=d1 to d2 do if i mod 2=0 then

44、s:=s+i; write(s);end.题1285：【入门】是否是连续奇数题1285：【入门】是否是连续奇数description 贫民窟的百万富翁获得2009年美国奥斯卡最佳影片，影片的主人公是一个叫贾马尔的小男孩，他在贫民窟长大，后来他参加了一档印度版的谁想成为百万富翁电视直播节目，他的特殊成长经历居然使他能够回答这个节目中的每一个问题，最后成功获得百万奖金。其中有一个题目是这样的：读入四个整数（0每个整数50000），判断这四个整数能否构成连续的四个奇数，如果可以就输出三行，每行一个等式，每个等式都满足“前一个数+2=后一个数”，否则请将这四个整数从大到小输出（数据之间以一个空格隔开）

45、。input 一行，四个空格隔开的整数。（ 0 < 每个整数 < 50000 )output 三行，每行一个等式 或 一行，从大到小排列的4个数sample input 样例1：17 13 11 15样例2：18 13 11 16sample output 样例1：11+2=1313+2=1515+2=17样例2：18 16 13 11hint 样例1中17、13、11、15可以构成连续的四个奇数11、13、15、17，所以就输出三个等式。样例2中的四个数据18、13、11、16不能构成连续的四个奇数，所以将他们从大到小输出。source 武进区中级班测验program ex128

46、5;var a:array1.4 of longint; t:longint; i,j:integer;begin for i:=1 to 4 do read(ai); readln; for i:=1 to 3 do for j:=i+1 to 4 do if ai>aj then begin t:=ai;ai:=aj;aj:=t; end; i:=1; while (i<4) and (ai+2=ai+1) do inc(i); if (i=4) and (a1 mod 2<>0) then begin writeln(a1,'+',2,'=

47、',a2); writeln(a2,'+',2,'=',a3); writeln(a3,'+',2,'=',a4); exit; end; for i:=4 downto 1 do write(ai,' ');end.题1783：【入门】小高考题1783：【入门】小高考description 懒羊羊在前一阵准备羊村的小高考复习时表现出了罕见的勤奋，现在他得知了小高考四门必修课的成绩，他想知道根据羊村的高考政策，他在羊村高考中能加几分。 羊村高考政策如下： 分数段 等级成绩>=90 a90>成绩&

48、gt;=75b75>成绩>=60c成绩<60 d每得一个a，可在羊村高考中加1分，若得4a，则可以加5分。当然，只要有一门功课得d，那么就将失去羊村高考资格。input 仅有一行，4个不大于100的非负整数，相邻两数之间用空格隔开。output 仅有一行，若有d级存在，则输出“poor lanyangyang”(引号不输出，注意大小写)；否则输出懒羊羊在羊村高考中的加分。sample input 输入样例1：100 95 89 94输入样例2：0 0 0 0sample output 输出样例1：3输出样例2：poor lanyangyangsource 常州市2010“信息

49、与未来”夏令营选拔赛program ex1783;var a,i,s:integer;begin s:=0; for i:=1 to 4 do begin read(a); if a>=90 then inc(s); if a<60 then begin write('poor lanyangyang');exit;end; end; if s=4 then s:=5; writeln(s);end.题1659：【入门】植树题1659：【入门】植树description star为了参加编程选拔考试已经做好了非常充分的准备，但是他有个最重要的毛病就是他十分的粗心，为了能在考试中不犯低级错误，拿到比较好的成绩，star决定做件好事来增加他的rp。做什么好事呢？star想到了常州好多道路刚修好，路边的绿化还没有好，于是star 决定为一条刚修好的马路两旁种上树木。当然这一定是star亲自抄手（挖坑，种树，浇水工程量好大，为了rp，star豁出去了，再累再苦也干），道路每隔5米种一棵树，正常情况下star种一棵树需要16分钟（这么快，因为我们的star身强力壮）但是由于有部分位置的土壤质地不