pascal入门测试4(答案)

《pascal入门测试4(答案)》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、用0、1、2、3、8、7六个数字可以组成各位数字之和能被自然数N整除而又没有重复数字的四位数有多少个，输出这些数和个数。输入输出样例：输入：9↙输出：127812871728……87218730S=42输入：7↙输出：123812831328……83128321S=24vara,b,c,d,e,s,t,N:integer;beginS:=0;READ(N);fora:=1to8doforb:=0to8doforc:=0to8doford:=0to8doif(a<>4)and(a<>5)and(a<>6)and(b<>4)and(b<>5)

2、and(b<>6)and(c<>4)and(c<>5)and(c<>6)and(d<>4)and(d<>5)and(d<>6)and((a+B+C+D)modN=0)and((A*1000+B*100+C*10+D)>=1000)AND(a<>b)and(a<>c)and(a<>d)and(b<>c)and(b<>d)and(c<>d)thenbegins:=s+1;write(a*1000+b*100+c*10+d:6);end;write('s=',s);end.设有一个数列A1，A2，A3，……，AN……，其中A1，A2由键盘输入，

3、从A3开始，通过下列的公式计算：AN-2AN-1AN偶数奇数2AN-2+AN-1奇数偶数AN-2+2AN-1偶数偶数AN-2+AN-1+1奇数奇数AN-2+AN-1如：A1=1，A2=2，则A3=1+2*2=5，A4=4+5=9，A5=5+9=14输入N和A1，A2，输出前N项。如输入N=9，A1=1，A2=2，则输出A（3）=5↙A（4）=9↙A（5）=14↙A（6）=37↙A（7）=65↙A（8）=102↙A（9）=269输入输出样例：输入：N=6↙A1,A2=01输出：A(3)=1↙A(4)=2↙A(5)=5↙A(6)=9输入：N=

4、15↙A1,A2=12输出：A(3)=5↙A(4)=9↙A(5)=14↙A(6)=37↙A(7)=65↙A(8)=102↙A(9)=269↙A(10)=473↙A(11)=742↙A(12)=1957↙A(13)=3441↙A(14)=5398↙A(15)=14237VARN,I:INTEGER;A1,A2,A:INTEGER;BEGINWRITE(‘N=’);READLN(N);WRITE(‘A1,A2=’);READLN(A2,A1);FORI:=3TONDOBEGINIFNOTODD(A2)ANDODD(A1)THENA:=2*A2

5、+A1ELSEIFODD(A2)ANDNOTODD(A1)THENA:=A2+2*A1ELSEIFNOTODD(A2)ANDNOTODD(A1)THENA:=A2+A1+1ELSEA:=A2+A1;WRITELN(‘A(‘,I,’)=’,A);A2:=A1;A1:=A;END;END.一个正整数的数字的乘积N的定义是:这个整数中非零数字的乘积.例如,整数999的数字乘积为9*9*9,即729。729的数字乘积为7*2*9,即126。126的数字乘积为1*2*6,即12。12的数字乘积为1*2,即2。一个正整数的数字的乘积根N是这样得到的:

6、反复取该整数的数字乘积,直到得到一位数字为止.上例数字的乘积根是2。编一个程序,输入一个正整数(长度不超过10位),输出计算其数字乘积根的每一步结果.输入输出样例:输入:999输出:729126122varn,s,a:longint;beginreadln(n);repeats:=1;whilen>0dobegina:=nmod10;ifa<>0thens:=s*a;n:=ndiv10;end;writeln(s);n:=s;until(s<10)and(s>0);readln;end.输出X-Y之间自然数的所有因子和（不包括自然数本身）

7、，并求出最大因子和及对应自然数。如输入X=2Y=100,则输出15696.因为96的因子为1234681216243248,这些因子和为156,是2-100之间所有自然数中的最大因子和.输入输出样例：输入：30500输出：1032480vari,s,max,p,j,X,Y:LONGINT;beginmax:=-9999;READ(X,Y)fori:=XtoYdobegins:=0;forj:=1toi-1doifimodj=0thens:=s+j;write(i,'',s,'');ifs>maxthenbeginmax:=s;p:=ien

8、d;end;write('max=',max,'p=',p);end.陶陶很喜欢数学，尤其喜欢奇怪的数。一天，他突然发现，有的整数拥有的因子数是很有个性的，决定找到一个具有n个正因子数的最小的