3pascal基础训练题

1、第3课16*求n个数中最大值和最小值。样例：输入553256167输岀MIN=2MAX=5programxxy016;varn,1,min,max,x:integer;beginreadln(n);read(x);min:=x;max:=x;fori:=2tondobeginread(x);ifxmaxthenmax:=x;ifxvminthenmin:=x;end;writeln(4min=,min);writelnCmax=,max);readIn;readIn;end.17、*编写将1?1000之间(含1000)所有能被7整除的数累加并输岀结果。Programxxy017;VarI,s:

2、integer;BeginS:=0;Fori:=lto1000doIfImod7=0thes:=s+l;Writeln(s);Readln;Readln;End.10%,编程计算2005年生产，编程求出第n项。18、*编写程序实现输入已知整数N,计算：1+1/2+1/3+.+1/N的值Programxxy018;VarN,I:integer;S:real;BeginReadln(n)S:=0;Fori:=lto1000dos:=s+l/I;Writeln(s:0:2);Readln;Readln;End.19、*某化肥厂1999年生产化肥3886万吨，该厂计划年增长率为多少吨化肥？Progra

3、mxxy019;VarI:integer;S:real;BeginS:=3886;Fori:=2000to2005dos：二s*(l+0.1);Writeln(s:0:2);Readln;Readln;End.20、*知faibonacai(费波那契)数列的前几项0、1、1、2、3、5、8.参考答案：programxxy020;varn,i,a,b,s:longint;beginreadln(n);a:=0;b:=l;fori:=3tondobegins:=a+b;a:=b;b:=s;end;writeln(s-,s:10);readln;end.21、*求数列al,a2,a3,a4,a20。

4、已知al=O,a2=l,a3=l,a4=al+2*a2+a3,a5=a2+2*a3+a4参考答案：programxxy021;varn,i,a,b,c,s:longint;beginreadln(n);a:=0;b:=l;c:=l;fori:=3tondobegins:=a+2*b+c;a:=b;b:=c;c:=s;end;writeln(s-,s:10);readln;end.22、*编程求100-300之间有多少个其各位数字之和为5的倍数的整数。参考答案：programxxy022;vari,a,b,c,tot:integer;begintot:=0;fori:=100to300dobeg

5、ina:=idiv100;b:=(imod100)div10;c:=imod10;if(a+b+c)mod5=0thenbeginwrite(i:6);tot:=tot+l;end;end;writeln(totay=,tot);readln;end.参考答案：23、输入20个数，统计其中正、负和零的个数programxxy023;varn,i,x,a,b,c:integer;beginreadln(n);a:=0;b:二0;c:=0;fori:=ltondobeginread(x)ifx0thena:=a+l;ifx=0thenb:=b+l;ifx0thec:=c+l;end;writelnCa=,a);writelnCb=,b);writeln(tc=,c);readln;readln;end.24*计算*1!+2!+3!+.+n!的值参考答案：programxxy024;varn,i,s,p:longint;beginreadln(n);p：=l；s:=0;fori:=ltondobeginp:=p*i;s:=s+p;end;writeln(s=,s);readl