题库31—40题.docVIP

d031: 费波那契数列 已知faibonacai(费波那契)数列的前几个数分别为1,1,2,3,5,8,13,……,编程求此数列的前n（n＞＝５）项。 输入说明： 一行一个整数ｎ（＞＝５ and =22） 输出说明： 每５格一行，不足５个的也占一行 输出样例 ： １　１　２　３　５ var a:array[1..30] of longint; i,n:integer; begin read(n); a[1]:=1; a[2]:=1; for i:=3 to n do a[i]:=a[i-1]+a[i-2]; for i:=1 to n do if i mod 50 then write(a[i], ) else writeln(a[i]); end. d032: 成绩统计 内容： 某班共有若干名学生（不大于40），已知他们考试的数学成绩，现需要统计100分、90～99分、80～89分、70～79分、60～69分与不及格各成绩档各有多少人。 输入说明： 第一行 一个整数n，班级人数 以下 n行，每行一个整数，代表数学成绩 输出说明： 共6行，从第一行依次为100分、90～99分、80～89分、70～79分、60～69分与不及格的人数 ?若没有此分数段人数输出0 输入样例：2 100 60 输出样例 ： 1 0 0 0 1 0 var score,n,a,b,c,d,e,f,i:integer; begin read(n); for i:=1 to n do begin read(score); if score60 then f:=f+1 else if score70 then e:=e+1 else if score80 then d:=d+1 else if score90 then c:=c+1 else if score100 then b:=b+1 else a:=a+1; end; writeln(a); writeln(b); writeln(c); writeln(d); writeln(e); writeln(f); end. 、 d033: 买纽扣 内容： 用5元钱买100只钮扣，其中金属钮扣每只 5 角，有机玻璃钮扣每只1角，小揿扣 1分钱买 3个，编程求出各种钮扣各买了多少只? 输入说明： 无 ? 输出说明： 一行，3个整数，分别代表 金属扣,有机扣,揿扣var a,b,c:integer; begin for a:=0 to 10 do for b:=0 to 50 do for c:=0 to 100 do if (a+b+c=100) and (150*a+30*b+c=1500) then writeln(a, ,b, ,c); end. d034: 海伦公式 内容： 已知3边长，求三角形面积 输入说明： 一行 三个数输出说明： 一行一个数（保留2位小数）或者是 Data Error！（不能构成三角形） 输入样例： 1 2 3 输出样例 ： Data Error！var a,b,c,p,s:real; begin read(a,b,c); p:=(a+b+c)/2; if (a+bc) and (a+cb) and (b+ca) then begin s:=sqrt(p*(p-a)*(p-b)*(p-c)); writeln(s:0:2); end else writeln(Data Error!); end. d035: 猜年龄和出生月份 内容： 首先，用2乘以你出生的月份，再加上5，再乘以50，再加上你的年龄，再减去365，告诉计算机得数，计算机就会算出你几岁，哪个月出生。现在，计算机要考考你，它告诉你得数，你告诉它的年龄和出生月份，你会吗？ 输入说明： 一个整数 输出说明： 输出两个整数 空格隔开 输入样例： 299 输出样例 ： 14 4 var month,old,a:integer; begin read(a); for month:=1 to 12 do for old:=1 to 100 do if (month*2+5)*50+old-365=a then writeln(old, ,month); e