国家计算机二级编程题.pdf

《国家计算机二级编程题.pdf》由会员分享，可在线阅读，更多相关《国家计算机二级编程题.pdf（79页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。

1、湖南省一级程序设计题库过程及答案1编程序求出1-200以内的能被7整除的数的平方和。377986cleas=0m=0for i=1 to 200ifi%7=0m=iA2s=s+mendifendfor?s2编程序求199的平方根的和并输出结果。(保 留 小 数 点 两 位)661.46cleas=0for i=1 to 99s=s+sqrt(i)endfor?round(s,2)3编程序求155的平方根的和并输出结果。(保 留 小 数 点 两 位)275.43cleas=0for i=l to 55s=s+sqrt(i)endfor?round(s,2)4 编程序统计11000能被3整除的数的

2、个数。333cleas=0for n=l to 1000ifn%3=0s=s+lendifendfor?s7编程序求出1到5000之间的能被5整除的前若干个偶数之和，当和大于5 0 0时程序退出。550cleas=0for n=10 to 5000 step 10s=s+nifs500exitendifendfor?s8 编程序求在3000以内被17或者23整除的正整数数的个数。299 cleas=0for n=l to 3000if n%17=0 or n%23=0s=s+lendifendfor?s9 序求在1000以内被17或者23整除的正整数数的个数。99cleas=0for n=l

3、to 1000if n%17=0 or n%23=0s=s+lendifendfor?s10 编程序求在5000以内被17或者23整除的正整数数的个数。499cleafor n=l to 5000if n%17=0 orn%23=0s=s+lendifendfor?s11 编程序求出1-100以内的能被3整除的数的平方和。112761cleas=0for n=l to 100ifn%3=0s=s+nA2endifendfor?s12 已知一个数列的前3个数为0,0,L以后每个数为前3个数的和，编程序求此数列的第36个数。334745777cleadime f(36)f(D=of(2)=0f(3

4、)=ls=0for n=4 to 36f(n)=f(n-3)+f(n-2)+f(n-l)s=f(n)endfor?s13 编程序求出1-100以内的能被9整除的数的平方和。40986cleas=0for n=l to 100ifn%9=0s=s+nA2endifendfor?s14 编程序求出1-200以内的能被3整除的数的平方和。882189cleas=0for n=l to 200ifn%3=0s=s+nA2endifendfor?s15 编程序求出1-7000以内能被3或者7整除数的个数。3000cleas=0for n=l to 7000if n%3=0 or n%7=0s=s+len

5、difendfor?s16 序求出1-3000以内能被3或者5整除数的个数。1400cleas=0for n=l to 3000if n%3=0 or n%5=0s=s+lendifendfor?s17 编程序求出1-5000以内能被3或者7整除数的个数。2142cleas=0for n=l to 5000ifn%3=0 or n%7=0s=s+lendifendfor?s18 编程序求出1-6000以内能被3或者5整除数的个数。2800cleas=0for n=l to 6000if n%3=0 or n%5=0s=s+lendifendfor?s19 编程序求出1-4000以内能被3或者1

6、1整除数的个数。1575cleas=0for n=l to 4000if n%3=0 or n%11=0s=s+lendifendfor?s20 编程序求出1-5000以内能被37整除的整数之和。339660cleas=0for n=1 to 5000ifn%37=0s=s+nendifEndfor?s21 编程序求出1-6000以内能被23整除的整数之和。780390cleas=0for n=l to 6000ifn%23=0s=s+nendifendfor?s22 编程序求出1-3000以内能被33整除的整数之和。135135cleas=0for n=l to 3000ifn%33=0s=

7、s+nendifendfor?s23 编程序求出1-5000以内能被15整除的整数之和。834165cleas=0for n=l to 5000if n%15=0s=s+nendifendfor?s2 4 编程序求出100到200之间同时满足除3余2和除5余3条件的数的个数。6cleas=0for n=100to 200ifn%3=2 and n%5=3s=s+lendifendfor?s25 编程序求出1到300之间同时满足除3余2和除5余3条件的数的个数。20cleas=0for n=l to 300if n%3=2 and n%5=3s=s+lendifendfor?s26 编程序求出1

8、00到500之间同时满足除3余2和除5余3条件的数的个数。26cleas=0for n=100 to 500ifn%3=2 and n%5=3s=s+lendifendfor?s27编程序求出1到400之间同时满足除3余2和除5余3条件的数的个数。27cleas=0for n=lto 400if n%3=2 and n%5=3s=s+lendifendfor?s28 编程序求出100到600之间同时满足除3余2和除5余3条件的数的个数。33cleas=0for n=100 to 600ifn%3=2 and n%5=3s=s+lendifendfor?s29编程序求出1到500之间同时满足除3

9、余2和除5余3条件的数的个数。33cleas=0for n=lto 500if n%3=2 and n%5=3s=s+lendifendfor?s30 1编程序求出2+4+8+16+32+这样的数之和。如果累加数大于500时，则程序终止并输出结果。510cleas=0for n=l to 100s=s+2Anifs500exitendifendfor?s3 1编程序求出1 100所有整数的立方和并输出结果。25502500cleas=0for n=1 to 100s=s+nA3endfor?s3 2 编程序求出1110所有整数的立方和并输出结果。cleas=0for n=1 to 110s=s

10、+nA3endfor?s3 3 编程序求出166所有整数的立方和并输出结果。cleas=0for n=1 to 66s=s+nA3endfor?s3 4 编程序求出1150所有整数的立方和并输出结果。cleas=0for n=1 to 150s=s+nA3endfor?s3 5 编程序求出1180所有整数的立方和并输出结果。cleas=0for n=1 to 180s=s+nA3endfor?s3 6 编程序求出1200所有整数的立方和并输出结果。cleas=0for n=1 to 200s=s+nA3endfor?s3 7 编程序求出1210所有整数的立方和并输出结果。cleas=0for

11、n=1 to 210s=s+nA3372710254888521128255625265364100404010000490844025endfor?s3 8 编程序求出S=1130所有整数的立方和并输出结果。72505225cleas=0for n=1 to 130s=s+nA3endfor?s3 9 编写程序，计算1000以内有多少个这样的数，该数既能被6整除又能被8整除。41cleas=0for n=1 to 1000if n%6=0 and n%8=0s=s+1endifendfor?s4 0 编程序求所有整数的平方和并输出结果。449735cleas=0for n=1 to 110s

12、=s+nA2endfor?s4 1 编程序求1 120所有整数的平方和并输出结果。583220cleas=0for n=1 to 120s=s+nA2endfor?s4 2 编程序求1 80所有整数的平方和并输出结果。173880cleas=0for n=1 to 80s=s+nA2endfor?s4 3 编程序求1 150所有整数的平方和并输出结果。1136275cleas=0for n=1 to 150s=s+nA2endfor?s4 4 编程序求1 60所有整数的平方和并输出结果。73810cleas=0for n=1 to 60s=s+nA2endfor?s4 5 编程序求1 90所有

13、整数的平方和并输出结果。247065cleas=0for n=1 to 90s=s+nA2endfor?s4 6 编程序求1108所有整数的平方和并输出结果。425754cleas=0for n=1 to 108s=s+nA2endfor?s4 7 编程序求1145所有整数的平方和并输出结果。1026745cleas=0for n=1 to 145s=s+nA2endfor?s4 8 编程序求1250所有整数的平方和并输出结果。5239625cleas=0for n=1 to 250s=s+nA2endfor?s4 9 编程序求1300所有整数的平方和并输出结果。9045050cleas=0f

14、or n=1 to 300s=s+nA2endfor?s5 0 编程序求出1到5000之间的能被7整除的前若干个数之和，当和大于1500时退出并输出结果。1617cleas=0for n=1 to 5000if n%7=0s=s+nendifif s1500exitendifendfor?s5 1 编程序求出1到3000之间的能被3整除的前若干个数之和，当和大于600时退出并输出结果。630cleas=0for n=1 to 3000if n%3=0s=s+nendifif s600exitendifendfor?s5 2 编程序求出1到2000之间的能被9整除的前若干个数之和，当和大于500

15、时退出并输出结果。594cleas=0for n=1 to 2000if n%9=0s=s+nendifif s500exitendifendfor?s53编程序求出1到6000之间的能被5整除的前若干个偶数之和，当和大于650时退出并输出结果。660cleas=0for n=1 to 6000if n%5=0 and n%2=0s=s+nendifif s650exitendifendfor?s5 4编程序求出1到7000之间的能被5整除的前若干个偶数之和，当和大于500时退出并输出结果。550cleas=0for n=1 to 7000if n%5=0 and n%2=0s=s+nendi

16、fif s500exitendifendfor?s55编程序求出1到4000之间的能被5整除的前若干个偶数之和，当和大于400时退出并输出结果。450cleas=0for n=1 to 4000if n%5=0 and n%2=0s=s+nendifif s400exitendifendfor?s5 6编程序求出1到8000之间的能被5整除的前若干个偶数之和，当和大于750时退出并输出结果。780cleas=0for n=1 to 8000if n%5=0 and n%2=0s=s+nendifif s750exitendifendfor?s5 7 编程序统计1200能被3整除的个数。66cl

17、eas=0for n=1 to 200if n%3=0s=s+1endifendfor?s5 8 编程序统计1300能被3整除的个数。100cleas=0for n=1 to 300if n%3=0s=s+1endifendfor?s5 9 编程序统计200 400能被3整除的个数。67cleas=0for n=200 to 400if n%3=0s=s+1endifendfor?s6 0 编程序统计150 300能被3整除的个数。51cleas=0for n=150 to 300if n%3=0s=s+1endifendfor?s6 1 编程序统计150 400能被3整除的个数。84clea

18、s=0for n=150 to 400if n%3=0s=s+1endifendfor?s6 2 编程序统计100500能被3整除的个数。cleas=0for n=100 to 500if n%3=0s=s+1endifendfor?s6 3 编程序统计200 600能被3整除的个数。cleas=0for n=200 to 600if n%3=0s=s+1endifendfor?s6 4 编程序统计200 300能被3整除的个数。cleas=0for n=200 to 300if n%3=0s=s+1endifendfor?s6 5 编程序统计300 500能被3整除的个数。cleas=0fo

19、r n=300 to 500if n%3=0s=s+1endifendfor?s6 6 编程序求165的平方根的和并输出结果。clea1331343467（保留小数点两位）353.19s=0for n=1 to 65s=s+sqrt(n)endfor?round(s,2)6 7编程序求1 66的平方根的和并输出结果。(保留小数点两位)cleas=0for n=1 to 66s=s+sqrt(n)endfor?round(s,2)6 8编程序求1 85的平方根和并输出结果。(保留小数点两位)cleas=0for n=1 to 85s=s+sqrt(n)endfor?round(s,2)6 9编程

20、序求195的平方根的和并输出结果。(保留小数点两位)cleas=0for n=1 to 95s=s+sqrt(n)endfor?round(s,2)7 0编程序求1125的平方根的和并输出结果。(保留小数点两位)cleas=0for n=1 to 125s=s+sqrt(n)endfor?round(s,2)7 1编程序求1 135的平方根的和并输出结果。(保留小数点两位)cleas=0for n=1 to 135s=s+sqrt(n)endfor?round(s,2)7 2编程序求1155的平方根的和并输出结果。(保留小数点两位)cleas=0for n=1 to 155s=s+sqrt(n

21、)361.32526.85621.97937.081051.311292.51endfor?round(s,2)7 3 编程序求1115的平方根的和并输出结果。(保留小数点两位)827.32cleas=0for n=1 to 115s=s+sqrt(n)endfor?round(s,2)7 4 编程序求1 78的平方根的和并输出结果。(保留小数点两位)463.46cleas=0for n=1 to 78s=s+sqrt(n)endfor?round(s,2)7 5 已知一个数列的前3个数为0,1,2,以后每个数为前3个数的和，编程序求此数列的第30个数。24548655cleadime f(3

22、0)f(1)=0f(2)=1f(3)=2s=0for n=4 to 30f(n)=f(n-3)+f(n-2)+f(n-1)s=f(n)endfor?s7 6 已知一个数列的前3个数为0,1,1,以后每个数为前3个数的和，编程序求此数列的第20个数。35890cleadime f(20)f(1)=0f(2)=1f(3)=1s=0for n=4 to 20f(n)=f(n-3)+f(n-2)+f(n-1)s=f(n)endfor?s7 7 已知一个数列的前3个数为0,1,2,以后每个数为前3个数的和，编程序求此数列的第25个数。1166220cleadime f(25)f(1)=0f(2)=1f(

23、3)=2s=0for n=4 to 25f(n)=f(n-3)+f(n-2)+f(n-1)s=f(n)endfor?s7 8 已知一个数列的前3个数为1,2,3,以后每个数为前3个数的和，编程序求此数列的第20个数。101902cleadime f(20)f(1)=1f(2)=2f(3)=3s=0for n=4 to 20f(n)=f(n-3)+f(n-2)+f(n-1)s=f(n)endfor?s7 9 已知一个数列的前3个数为0,1,2,以后每个数为前3个数的和，编程序求此数列的第35个数。516743378cleadime f(35)f(1)=0f(2)=1f(3)=2s=0for n=

24、4 to 35f(n)=f(n-3)+f(n-2)+f(n-1)s=f(n)endfor?s8 0 已知一个数列的前3个数为1,2,3,以后每个数为前3个数的和，编程序求此数列的第35个数。950439251cleadime f(35)f(1)=1f(2)=2f(3)=3s=0for n=4 to 35f(n)=f(n-3)+f(n-2)+f(n-1)s=f(n)endfor?s8 1 已知一个数列的前3个数为3,4,5,以后每个数为前3个数的和，编程序求此数列的第28个数。25527448cleadime f(28)f(1)=3f=4f(3)=5s=0for n=4 to 28f(n)=f(

25、n-3)+f(n-2)+f(n-1)s=f(n)endfor?s82已知一个数列的前3个数为3,4,5,以后每个数为前3个数的和，编程序求此数列的第33个数。537346739cleadime f(33)f=3f=4f(3)=5s=0for n=4 to 33f(n)=f(n-3)+f(n-2)+f(n-1)s=f(n)endfor?s8 3 已知一个数列的前3个数为3,4,5,以后每个数为前3个数的和，编程序求此数列的第26个数。7545856cleadime f(26)f(1)=3f(2)=4f(3)=5s=0for n=4 to 26f(n)=f(n-3)+f(n-2)+f(n-1)s=

26、f(n)endfor?s8 4 编程序求2+4+8+16+32+这样的数之和。如果累加数大于1500时，则程序终止并输出结果。2046cleas=0for n=1 to 100q=2Ans=s+qif s1500exitendifendfor?s8 5 编程序求2+4+8+16+32+这样的数之和。如果累加数大于980时，则程序终止并输出结果。1022cleas=0for n=1 to 100q=2Ans=s+qif s980exitendifendfor?s8 6 编程序求2+4+8+16+32+这样的数之和。如果累加数大于3000时，则程序终止并输出结果。4094cleas=0for n=

27、1 to 100q=2Ans=s+qif s3000exitendifendfor?s8 7 编程序求2+4+8+16+32+这样的数之和。如果累加数大于5000时，则程序终止并输出结果。8190cleas=0for n=1 to 100q=2Ans=s+qif s5000exitendifendfor?s8 8 编程序求1+3+5+7+9+这样的数之和。如果累加数大于750时，则程序终止并输出结果。784cleas=0for n=1 to 800 step 2s=s+nif s750exitendifendfor?s8 9 编程序求1+3+5+7+9+这样的数之和。如果累加数大于1200时，

28、则程序终止并输出结果。1225cleas=0for n=1 to 800 step 2s=s+nif s1200exitendifendfor?s9 0 编程序求2+4+8+16+32+这样的数之和。如果累加数大于9000时，则程序终止并输出结果。16382cleas=0for n=1 to 100q=2Ans=s+qif s9000exitendifendfor?s9 1 编程序求1+3+5+7+9+这样的数之和。如果累加数大于1300时，则程序终止并输出结果。1369cleas=0for n=1 to 800 step 2s=s+nif s1300exitendifendfor?s9 2

29、编程序求1+3+5+7+9+这样的数之和。如果累加数大于900时，则程序终止并输出结果。961cleas=0for n=1 to 800 step 2s=s+nif s900exitendifendfor?s9 3 编程序求1+3+5+7+9+这样的数之和。如果累加数大于1000时，则程序终止并输出结果。1024cleas=0for n=1 to 800 step 2s=s+nif s1000exitendifendfor?s9 4 编程序求1100能被7整除的个数。14cleas=0for n=1 to 100if n%7=0s=s+1endifendfor?s9 5 编程序求1 600能被

30、11整除的个数。54cleas=0for n=1 to 600if n%11=0s=s+1endifendfor?s9 6 编程序求1 1000能被15整除的个数。66cleas=0for n=1 to 1000if n%15=0s=s+1endifendfor?s9 7 编程序求1 800能被5整除的个数。160cleas=0for n=1 to 800if n%5=0s=s+1endifendfor?s9 8 编写程序，求 1,1000 既能被6整除又能被7整除的数的个数。2cleas=0for n=1 to 100if n%6=0 and n%7=0s=s+1endifendfor?s9

31、 9 编写程序，求 1,500 既能被3整除又能被5整除的数的个数。33cleas=0for n=1 to 500if n%3=0 and n%5=0s=s+1endifendfor?s100编写程序，求口，500 既能被6整除又能被7整除的数之和。2772cleas=0for n=1 to 500if n%6=0 and n%7=0s=s+nendifendfor?s101 已知24有8个正整数因子(即：1,2,3,4,6,8,12,24),而24正好被其因子个数8整除。求 1,100 之间第10个能被其因子数目整除的正整数。56cleas=0q=0for n=1 to 100m=0for

32、j=1 to nif n%j=Om=m+1endifnextif n%m=0s=s+1q=nif s9&当它大于9时，q 已经是第十个数了！exitendifendifendfor?q102求 666,777 范围内素数的个数。16cleas=0for n=666 to 777q=0for j=2 to sqrt(n)if n%j=Oq=iendifnextif q=0s=s+1endifendfor?s103求 351,432 之间所有既不能被3整除，又不能被8整除的正整数的个数。47cleas=0for n=351 to 432if n%3!=0 and n%8!=0s=s+1endife

33、ndfor?s104 求 444,666 范围内最大的素数是多少？661cleas=0for n=444 to 666q=0for j=2 to sqrt(n)if n%j=Oq=iendifnextif q=0s=nendifendfor?s105 有一个分数序列:2/1,3/2,5/3,8/5,13/8,21/13,(注:该数列从第二项开始,其分子是前一项的分子与分母的和，而其分母是前一项的分子)，求出这个序列前24项的和。要求：按四舍五入的方式精确到小数点后第二位。39.13cleas=0k=0m=2n=1for j=1 to 24k=m/ns=s+ky=mm=m+nn=yendfor?

34、round(s,2)106 已知24有8个正整数因子(即：1,2,3,4,6,8,12,24),而24正好被其因子个数8整除。问 100,300 之间有多少个能被其因子数目整除的数。19cleas=0q=0for n=100 to 300m=0for j=1 to nif n%j=Om=m+1endifnextif n%m=Os=s+1endifendfor?s107 求口,5000 之间能同时被3和7整除的数的个数。238cleas=0for n=1 to 5 000if n%3=0 and n%7=0s=s+1endifendfor?s108 设某国今年的国民生产总值为45600亿元,若今

35、后每年以8%的增长率增长，计算多少年后能实现国民生产总值翻两番？19 2008cleas=0dime f(1 000)f(1 )=4 5 600f(2)=4 924 8f =5 31 87.84q=2&从第二年开始计算年份，所以f 不算。for n=4 to 1 000f(n)=f(n-1)*1.08s=f(n)q=q+1if s=1 824 00exitendifendfor?q109 求 1,5000 之间能被3或7整除的数的个数。2142cleas=0for n=1 to 5 000if n%3=0 or n%7=0s=s+1endifendfor?s110 已知24有8个因子(即：1,

36、2,3,4,6,8,12,2 4),而24正好被8整除。求口 J 00 之间第二大能被其因子数目整除的数。88cleas=0q=0for n=100 to 1 step-1m=0for j=1 to nif n%j=0m=m+1endifnextif n%m=0s=s+1q=nif s1&当它大于1时，q 已经是第2个数了！exitendifendifendfor?q111 若某整数平方等于某两个正整数平方之和的正整数称为弦数。例如：由于3A2+4八 2=5八 2,贝巧为弦数，求 100,200 之间最大的弦数。200cleas=100q=0for n=100 to 200for j=1 to

37、 n-1for k=1 to n-1if kA2+jA2=nA2q=nif qss=qendifendifendforendforendfor?s112 若某整数N 的所有因子之和等于N 的倍数，则 N 称为多因子完备数，如数28淇因子之和1+2+4+7+14+28=56=2*28,28是多因子完备数。求 1,500 之间有多少个多因子完备数。5cleas=0for n=1 to 500m=0for j=1 to nif n%j=0m=m+jendifnextif m%n=0s=s+1endifendfor?s113 若某整数N 的所有因子之和等于N 的倍数，则 N 称为多因子完备数，如数28

38、淇因子之和1+2+4+7+14+28=56=2*28,28是多因子完备数。求 1,200 之间有多少个多因子完备数。4cleas=0for n=1 to 200m=0for j=1 to nif n%j=Om=m+jendifnextif m%n=0s=s+1endifendfor?s114 设某国今年的国民生产总值为45600亿元,若今后每年以9%的增长率增长，计算多少年后能实现国民生产总值翻一番？9cleas=0dime f(1000)f(1)=45600f(2)=45600*1.09f(3)=(45600*1.09)*1.09q=2&从第二年开始计算年份，所以f不算。for n=4 to

39、 1000*n)=f(n-1)*1.08s=f(n)q=q+iif s=45600*2exitendifendfor?q115 已知24有8个正整数因子(即4,234,6,8J 2,24),而24正好被其因子个数8整除。求 100,300 之间能被其因子数目整除的数中最大的数。296cleas=0q=0for n=100 to 300m=0for j=1 to nif n%j=Om=m+1endifnextif n%m=0s=s+1q=nendifendfor?q116 有一个三位数满足下列条件：(1)此三位数的三位数字各不相同；(2)此三位数等于它的各位数字的立方和。试求这种三位数共有多少个

40、？4cleas=0for n=100 to 999a=int(n/100)b=int(n/10)%10c=n%10if aA3+bA3+cA3=n and a!=b and b!=c and c!=as=s+1endifendfor?s117 找满足以下条件：XA2+YA2+ZA2=41A2 且 X+Y+Z之值最大的三个正整数X,Y,Z,求 X+Y+Z之值.71cleas=0for x=1 to 41for y=1 to 41for z=1 to 41if xA2+yA2+zA2=41A2k=x+y+zif kss=kendifendifendforendforendfor?s118 求 2,

41、500 之间的所有素数的和。21536cleas=0for n=2 to 500q=0for j=2 to sqrt(n)if n%j=Oq=iendifnextif q=0s=s+nendifendfor?s119 求 3 1000 之间最大的五个素数之和。4919cleas=0q=0for n=1000 to 3 step-1m=0for j=2 to sqrt(n)if n%j=Om=1endifnextif m=0s=s+nq=q+iif q4exitendifendifendfor?s120 有一个分数序列:2/1,3/2,5/3,8/5,13/8,21/13.（即：该数列从第二项开

42、始，其分子是前一项的分子与分母之和，而其分母是前一项的分子），求出这个序列前56项的和。要求：按四舍五入的方式精确到小数点后第三位。90.909cleas=0k=0m=2n=1for j=1 to 56k=m/ns=s+ky=mm=m+nn=yendfor?round（s,3）121 已知24有8个因子（即：1,234,6,8,12,24）,而24正好被8整除。求口 00,300之间所有能被其因子数目整除的数之和。3769cleas=0for n=100 to 300m=0for j=1 to nif n%j=Om=m+1endifnextif n%m=0s=s+nendifendfor?s1

43、22 问 100,200 之间有奇数个不同因子的整数共有多少个？5cleas=0for n=100 to 200m=0for j=1 to nif n%j=Om=m+1endifnextif m%2=1s=s+1endifendfor?s123 水仙花数是一个三位正整数，它等于它的各位数字的立方之和.例如:153=1八 3+5八 3+3八 3,所以153是水仙花数.试求所有的水仙花数之积。8547940170cleas=1&小蔡提醒：特别注意若s=0,则 s 乘任何数都会为0,所以此时s=1。for n=100 to 999a=int(n/100)b=int(n/10)%10c=n%10if

44、aA3+bA3+cA3=ns=s*nendifendfor?s124 把一张一元钞票，换成一分、二分和五分硬币，每种至少8枚,问有多少种方案？80cleas=0for a=8 to 100for b=8 to 50for c=8 to 20if a+2*b+5*c=100s=s+1endifendforendfornext?s125 求 200,300 之间最小的一个有奇数个不同因子的整数。225cleas=0for n=200 to 300m=0for j=1 to nif n%j=Om=m+1endifnextif m%2=1s=nexitendifendfor?s126 一个数出现在该数

45、的平方数的右边，称这个数为“同构数”。例如，5出现在平方数25的右边，25出现在平方数625的右边，则5、25都是“同构数九 找出1到1000之间的所有“同构数”的个数。6cleas=0for n=2 to 1000do casecase n10p=nA2%10case n100p=nA2%100case n1exitendifendifendfor?s129 一个14*14方 阵 A(iJ),其每个元素的值为该元素下标的立方和，求出该矩阵所有元素的累加和(注：i j 从1到14).308700cleas=0for n=1 to 14for m=1 to 14s=s+nA3+mA3endfor

46、next?s130 求 100,200 之间最大的有奇数个不同因子的整数。196cleas=0for n=100 to 200m=0for j=1 to nif n%j=Om=m+1endifnextif m%2=1s=nendifendfor?s131 一个数如果恰好等于它的所有真因子之和，这个数就称为“完 数 例 如,6的真因子为1,2,3,而6=1+2+3,因此，6是“完数”。求1000以内的所有完数之和。530cleas=0for n=1 to 1000m=0for j=1 to n/2if n%j=0m=m+jendifnextif m=ns=s+nendifendfor?s132

47、一个数如果恰好等于它的所有真因子之和，这个数就称为“完数九例如,6的真因子为1,2,3,而6=1+2+3,因此,6是“完数”。求 8100,8200 之间的所有完数。8128cleafor n=8100 to 8200m=0for j=1 to n/2if n%j=Om=m+jendifnextif m=n?nendifendfor133 一个数如果恰好等于它的所有真因子之和，这个数就称为“完数”。例如,6的真因子为1,2,3,而6=1+2+3,因此，6是“完数”。求 1,1000 之间的最大完数。496cleas=0for n=1 to 1000m=0for j=1 to n/2if n%j

48、=Om=m+jendifnextif m=ns=nendifendfor?s134 一个数如果恰好等于它的所有真因子之和，这个数就称为“完数”。例如,6的真因子为1,2,3,而6 T+2+3,因此，6是“完数”。求 1,1000 之间的第二大完数。28cleas=0q=0for n=1000 to 1 step-1m=0for j=1 to n/2if n%j=Om=m+jendifnextif m=nq=q+is=nif q1exitendifendifendfor?s135 求数学式1 1/2+1/3 1/4+1/5 1/6+1/99-1/100的值(按四舍五入方式精确到小数点后4位)0.

49、6882cleadime f(50)f(1)=1-1/2f(2)=1/3-1/4f(3)=1/5-1/6s=0for n=1 to 50f(n)=1/(2*n-1)-1/(2*n)s=s+f(n)endfor?round(s,4)136 求 100,200 之间第二大有奇数个不同因子的整数。169cleas=0q=0for n=200 to 100 step-1m=0for j=1 to nif n%j=Om=m+1endifnextif m%2=1s=nq=q+1if q1exitendifendifendfor?s137 求正整数 1,500 中，能同时满足用3除余2,用5除余3,用7除余

50、2的所有正整数的个数。5cleas=0for n=1 to 500if n%3=2 and n%5=3 and n%7=3s=s+1endifendfor?s138 某自然数平方的末几位与该数相同时，称此数为自同构数，例如25八 2=625,则称25为自同构数，求出 10,100000 之间最大的自同构数。90625cleas=0for n=10 to 100000do casecase n100p=nA2%100case n1000p=nA2%1000case n10000p=nA2%10000case n100000p=nA2%100000endcaseif p=ns=nendifendf