1、湖南省一級(jí)程序設(shè)計(jì)題庫(kù)過(guò)程及答案1 編程序求出1-200以內(nèi)的能被7整除的數(shù)的平方和。 cleas=0m=0for i=1 to 200 if i%7=0 m=i2 s=s+m endifendfor?s2 編程序求199的平方根的和并輸出結(jié)果。（保留小數(shù)點(diǎn)兩位） 661.46cleas=0for i=1 to 99 s=s+sqrt(i)endfor?round(s,2)3 編程序求155的平方根的和并輸出結(jié)果。（保留小數(shù)點(diǎn)兩位） 275.43cleas=0for i=1 to 55 s=s+sqrt(i)endfor?round(s,2)4 編程序統(tǒng)計(jì)11000能被3整除的數(shù)的個(gè)數(shù)。 33

2、3cleas=0for n=1 to 1000 if n%3=0 s=s+1 endifendfor?s 5 編程序求出1100所有整數(shù)的平方和并輸出結(jié)果。 cleas=0for n=1 to 100 s=s+n2endfor?s 6 編程序求出1200所有整數(shù)的平方和并輸出結(jié)果。 cleas=0for n=1 to 200 s=s+n2endfor?s 7 編程序求出1到5000之間的能被5整除的前若干個(gè)偶數(shù)之和，當(dāng)和大于500 時(shí)程序退出。 550 cleas=0for n=10 to 5000 step 10s=s+n if s500 exit endifendfor?s8 編程序求在3

3、000以內(nèi)被17或者23整除的正整數(shù)數(shù)的個(gè)數(shù)。 299 cleas=0for n=1 to 3000 if n%17=0 or n%23=0 s=s+1 endifendfor?s9 序求在1000以內(nèi)被17或者23整除的正整數(shù)數(shù)的個(gè)數(shù)。 99 cleas=0for n=1 to 1000 if n%17=0 or n%23=0 s=s+1 endifendfor?s10 編程序求在5000以內(nèi)被17或者23整除的正整數(shù)數(shù)的個(gè)數(shù)。 499cleas=0for n=1 to 5000 if n%17=0 or n%23=0 s=s+1 endifendfor?s 11 編程序求出1-100以內(nèi)的

4、能被3整除的數(shù)的平方和。 cleas=0for n=1 to 100 if n%3=0 s=s+n2 endifendfor?s12 已知一個(gè)數(shù)列的前3個(gè)數(shù)為0，0，1，以后每個(gè)數(shù)為前3個(gè)數(shù)的和，編程序求此數(shù)列的第36個(gè)數(shù)。 cleadime f(36)f(1)=0f(2)=0f(3)=1s=0for n=4 to 36 f(n)=f(n-3)+f(n-2)+f(n-1)s=f(n)endfor?s13 編程序求出1-100以內(nèi)的能被9整除的數(shù)的平方和。 40986cleas=0for n=1 to 100 if n%9=0 s=s+n2 endifendfor?s 14 編程序求出1-200

5、以內(nèi)的能被3整除的數(shù)的平方和。 cleas=0for n=1 to 200 if n%3=0 s=s+n2 endifendfor?s15 編程序求出1-7000以內(nèi)能被3或者7整除數(shù)的個(gè)數(shù)。 3000cleas=0for n=1 to 7000 if n%3=0 or n%7=0 s=s+1 endifendfor?s 16 序求出1-3000以內(nèi)能被3或者5整除數(shù)的個(gè)數(shù)。 1400cleas=0for n=1 to 3000 if n%3=0 or n%5=0 s=s+1 endifendfor?s 17 編程序求出1-5000以內(nèi)能被3或者7整除數(shù)的個(gè)數(shù)。 2142cleas=0for

6、n=1 to 5000 if n%3=0 or n%7=0 s=s+1 endifendfor?s 18 編程序求出1-6000以內(nèi)能被3或者5整除數(shù)的個(gè)數(shù)。 2800cleas=0for n=1 to 6000 if n%3=0 or n%5=0 s=s+1 endifendfor?s 19 編程序求出1-4000以內(nèi)能被3或者11整除數(shù)的個(gè)數(shù)。 1575cleas=0for n=1 to 4000 if n%3=0 or n%11=0 s=s+1 endifendfor?s 20 編程序求出1-5000以內(nèi)能被37整除的整數(shù)之和。 cleas=0for n=1 to 5000 if n%3

7、7=0 s=s+n endifEndfor?s21 編程序求出1-6000以內(nèi)能被23整除的整數(shù)之和。 cleas=0for n=1 to 6000 if n%23=0 s=s+n endifendfor?s 22 編程序求出1-3000以內(nèi)能被33整除的整數(shù)之和。 cleas=0for n=1 to 3000 if n%33=0 s=s+n endifendfor?s 23 編程序求出1-5000以內(nèi)能被15整除的整數(shù)之和。 cleas=0for n=1 to 5000 if n%15=0 s=s+n endifendfor?s 24 編程序求出100到200之間同時(shí)滿足除3余2和除5余3條

8、件的數(shù)的個(gè)數(shù)。 6cleas=0for n=100 to 200 if n%3=2 and n%5=3 s=s+1 endifendfor?s25 編程序求出1到300之間同時(shí)滿足除3余2和除5余3條件的數(shù)的個(gè)數(shù)。 20cleas=0for n=1 to 300 if n%3=2 and n%5=3 s=s+1 endifendfor?s26 編程序求出100到500之間同時(shí)滿足除3余2和除5余3條件的數(shù)的個(gè)數(shù)。 26cleas=0for n=100 to 500 if n%3=2 and n%5=3 s=s+1 endifendfor?s27 編程序求出1到400之間同時(shí)滿足除3余2和除5余

9、3條件的數(shù)的個(gè)數(shù)。 27cleas=0for n=1to 400 if n%3=2 and n%5=3 s=s+1 endifendfor?s28 編程序求出100到600之間同時(shí)滿足除3余2和除5余3條件的數(shù)的個(gè)數(shù)。 33cleas=0for n=100 to 600 if n%3=2 and n%5=3 s=s+1 endifendfor?s29 編程序求出1到500之間同時(shí)滿足除3余2和除5余3條件的數(shù)的個(gè)數(shù)。 33cleas=0for n=1to 500 if n%3=2 and n%5=3 s=s+1 endifendfor?s30 1 編程序求出 2+4+8+16+32+這樣的數(shù)之

10、和。如果累加數(shù)大于500時(shí)，則程序終止并輸出結(jié)果。 510 cleas=0for n=1 to 100 s=s+2n if s500 exit endifendfor?s31 編程序求出1100所有整數(shù)的立方和并輸出結(jié)果。 cleas=0for n=1 to 100 s=s+n3endfor?s32 編程序求出1110所有整數(shù)的立方和并輸出結(jié)果。 cleas=0for n=1 to 110 s=s+n3endfor?s 33 編程序求出166所有整數(shù)的立方和并輸出結(jié)果。 cleas=0for n=1 to 66 s=s+n3endfor?s34 編程序求出1150所有整數(shù)的立方和并輸出結(jié)果。

11、cleas=0for n=1 to 150 s=s+n3endfor?s35 編程序求出1180所有整數(shù)的立方和并輸出結(jié)果。 cleas=0for n=1 to 180 s=s+n3endfor?s 36 編程序求出1200所有整數(shù)的立方和并輸出結(jié)果。 cleas=0for n=1 to 200 s=s+n3endfor?s37 編程序求出1210所有整數(shù)的立方和并輸出結(jié)果。 cleas=0for n=1 to 210 s=s+n3endfor?s 38 編程序求出S=1130所有整數(shù)的立方和并輸出結(jié)果。 cleas=0for n=1 to 130 s=s+n3endfor?s39 編寫(xiě)程序，

12、計(jì)算1000以內(nèi)有多少個(gè)這樣的數(shù)，該數(shù)既能被6整除又能被8整除。 41 cleas=0for n=1 to 1000 if n%6=0 and n%8=0 s=s+1 endifendfor?s40 編程序求1110所有整數(shù)的平方和并輸出結(jié)果。 cleas=0for n=1 to 110s=s+n2endfor?s41 編程序求1120所有整數(shù)的平方和并輸出結(jié)果。 cleas=0for n=1 to 120s=s+n2endfor?s42 編程序求180所有整數(shù)的平方和并輸出結(jié)果。 cleas=0for n=1 to 80s=s+n2endfor?s43 編程序求1150所有整數(shù)的平方和并輸出

13、結(jié)果。 cleas=0for n=1 to 150s=s+n2endfor?s44 編程序求160所有整數(shù)的平方和并輸出結(jié)果。 73810 cleas=0for n=1 to 60s=s+n2endfor?s45 編程序求190所有整數(shù)的平方和并輸出結(jié)果。 cleas=0for n=1 to 90s=s+n2endfor?s46 編程序求1108所有整數(shù)的平方和并輸出結(jié)果。 cleas=0for n=1 to 108s=s+n2endfor?s47 編程序求1145所有整數(shù)的平方和并輸出結(jié)果。 cleas=0for n=1 to 145s=s+n2endfor?s48 編程序求1250所有整數(shù)

14、的平方和并輸出結(jié)果。 cleas=0for n=1 to 250s=s+n2endfor?s 49 編程序求1300所有整數(shù)的平方和并輸出結(jié)果。 cleas=0for n=1 to 300s=s+n2endfor?s50 編程序求出1到5000之間的能被7整除的前若干個(gè)數(shù)之和，當(dāng)和大于1500時(shí)退出 并輸出結(jié)果。 1617cleas=0for n=1 to 5000 if n%7=0 s=s+n endif if s1500 exit endifendfor?s51 編程序求出1到3000之間的能被3整除的前若干個(gè)數(shù)之和，當(dāng)和大于600時(shí)退出并輸出結(jié)果。 630 cleas=0for n=1

15、to 3000 if n%3=0 s=s+n endif if s600 exit endifendfor?s52 編程序求出1到2000之間的能被9整除的前若干個(gè)數(shù)之和，當(dāng)和大于500時(shí)退出并輸出結(jié)果。 594 cleas=0for n=1 to 2000 if n%9=0 s=s+n endif if s500 exit endifendfor?s53編程序求出1到6000之間的能被5整除的前若干個(gè)偶數(shù)之和，當(dāng)和大于650時(shí)退出并輸出結(jié)果。 660cleas=0for n=1 to 6000 if n%5=0 and n%2=0 s=s+n endif if s650 exit endif

16、endfor?s 54 編程序求出1到7000之間的能被5整除的前若干個(gè)偶數(shù)之和，當(dāng)和大于500時(shí)退出并輸出結(jié)果。 550cleas=0for n=1 to 7000 if n%5=0 and n%2=0 s=s+n endif if s500 exit endifendfor?s 55編程序求出1到4000之間的能被5整除的前若干個(gè)偶數(shù)之和，當(dāng)和大于400時(shí)退出并輸出結(jié)果。 450cleas=0for n=1 to 4000 if n%5=0 and n%2=0 s=s+n endif if s400 exit endifendfor?s 56 編程序求出1到8000之間的能被5整除的前若干

17、個(gè)偶數(shù)之和，當(dāng)和大于750時(shí)退出并輸出結(jié)果。 780 cleas=0for n=1 to 8000 if n%5=0 and n%2=0 s=s+n endif if s750 exit endifendfor?s57 編程序統(tǒng)計(jì)1200能被3整除的個(gè)數(shù)。 66 cleas=0for n=1 to 200 if n%3=0 s=s+1 endifendfor?s58 編程序統(tǒng)計(jì)1300能被3整除的個(gè)數(shù)。 100 cleas=0for n=1 to 300 if n%3=0 s=s+1 endifendfor?s59 編程序統(tǒng)計(jì)200400能被3整除的個(gè)數(shù)。 67cleas=0for n=200

18、 to 400 if n%3=0 s=s+1 endifendfor?s60 編程序統(tǒng)計(jì)150300能被3整除的個(gè)數(shù)。 51 cleas=0for n=150 to 300 if n%3=0 s=s+1 endifendfor?s61 編程序統(tǒng)計(jì)150400能被3整除的個(gè)數(shù)。 84 cleas=0for n=150 to 400 if n%3=0 s=s+1 endifendfor?s62 編程序統(tǒng)計(jì)100500能被3整除的個(gè)數(shù)。 133 cleas=0for n=100 to 500 if n%3=0 s=s+1 endifendfor?s63 編程序統(tǒng)計(jì)200600能被3整除的個(gè)數(shù)。 13

19、4 cleas=0for n=200 to 600 if n%3=0 s=s+1 endifendfor?s64 編程序統(tǒng)計(jì)200300能被3整除的個(gè)數(shù)。 34cleas=0for n=200 to 300 if n%3=0 s=s+1 endifendfor?s65 編程序統(tǒng)計(jì)300500能被3整除的個(gè)數(shù)。 67 cleas=0for n=300 to 500 if n%3=0 s=s+1 endifendfor?s66 編程序求165的平方根的和并輸出結(jié)果。（保留小數(shù)點(diǎn)兩位） 353.19cleas=0for n=1 to 65 s=s+sqrt(n)endfor?round(s,2)67

20、 編程序求166的平方根的和并輸出結(jié)果。（保留小數(shù)點(diǎn)兩位） 361.32cleas=0for n=1 to 66 s=s+sqrt(n)endfor?round(s,2)68 編程序求185的平方根和并輸出結(jié)果。（保留小數(shù)點(diǎn)兩位） 526.85 cleas=0for n=1 to 85 s=s+sqrt(n)endfor?round(s,2)69 編程序求195的平方根的和并輸出結(jié)果。（保留小數(shù)點(diǎn)兩位） 621.97cleas=0for n=1 to 95 s=s+sqrt(n)endfor?round(s,2)70 編程序求1125的平方根的和并輸出結(jié)果。（保留小數(shù)點(diǎn)兩位） 937.08cl

21、eas=0for n=1 to 125 s=s+sqrt(n)endfor?round(s,2)71 編程序求1135的平方根的和并輸出結(jié)果。（保留小數(shù)點(diǎn)兩位） 1051.31cleas=0for n=1 to 135 s=s+sqrt(n)endfor?round(s,2)72 編程序求1155的平方根的和并輸出結(jié)果。（保留小數(shù)點(diǎn)兩位） 1292.51cleas=0for n=1 to 155 s=s+sqrt(n)endfor?round(s,2)73 編程序求1115的平方根的和并輸出結(jié)果。（保留小數(shù)點(diǎn)兩位） 827.32cleas=0for n=1 to 115 s=s+sqrt(n)

22、endfor?round(s,2)74 編程序求178的平方根的和并輸出結(jié)果。（保留小數(shù)點(diǎn)兩位） 463.46cleas=0for n=1 to 78 s=s+sqrt(n)endfor?round(s,2)75 已知一個(gè)數(shù)列的前3個(gè)數(shù)為0，1，2，以后每個(gè)數(shù)為前3個(gè)數(shù)的和，編程序求此數(shù)列的第30個(gè)數(shù)。 cleadime f(30)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?s 76 已知一個(gè)數(shù)列的前3個(gè)數(shù)為0，1，1，以后每個(gè)數(shù)為前3個(gè)數(shù)的和，編程序求此數(shù)列的第20個(gè)數(shù)。 35890 clea

23、dime 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?s77 已知一個(gè)數(shù)列的前3個(gè)數(shù)為0，1，2，以后每個(gè)數(shù)為前3個(gè)數(shù)的和，編程序求此數(shù)列的第25個(gè)數(shù)。 cleadime f(25)f(1)=0f(2)=1f(3)=2s=0for n=4 to 25f(n)=f(n-3)+f(n-2)+f(n-1)s=f(n)endfor?s78 已知一個(gè)數(shù)列的前3個(gè)數(shù)為1，2，3，以后每個(gè)數(shù)為前3個(gè)數(shù)的和，編程序求此數(shù)列的第20個(gè)數(shù)。 cleadime f(20)f(1)=1f(2)=2f(3)=3

24、s=0for n=4 to 20f(n)=f(n-3)+f(n-2)+f(n-1)s=f(n)endfor?s79 已知一個(gè)數(shù)列的前3個(gè)數(shù)為0，1，2，以后每個(gè)數(shù)為前3個(gè)數(shù)的和，編程序求此數(shù)列的第35個(gè)數(shù)。 cleadime f(35)f(1)=0f(2)=1f(3)=2s=0for n=4 to 35f(n)=f(n-3)+f(n-2)+f(n-1)s=f(n)endfor?s80 已知一個(gè)數(shù)列的前3個(gè)數(shù)為1，2，3，以后每個(gè)數(shù)為前3個(gè)數(shù)的和，編程序求此數(shù)列的第35個(gè)數(shù)。 cleadime f(35)f(1)=1f(2)=2f(3)=3s=0for n=4 to 35f(n)=f(n-3)+

25、f(n-2)+f(n-1)s=f(n)endfor?s81 已知一個(gè)數(shù)列的前3個(gè)數(shù)為3，4，5，以后每個(gè)數(shù)為前3個(gè)數(shù)的和，編程序求此數(shù)列的第28個(gè)數(shù)。 cleadime f(28)f(1)=3f(2)=4f(3)=5s=0for n=4 to 28f(n)=f(n-3)+f(n-2)+f(n-1)s=f(n)endfor?s82已知一個(gè)數(shù)列的前3個(gè)數(shù)為3，4，5，以后每個(gè)數(shù)為前3個(gè)數(shù)的和，編程序求此數(shù)列的第33個(gè)數(shù)。 cleadime f(33)f(1)=3f(2)=4f(3)=5s=0for n=4 to 33f(n)=f(n-3)+f(n-2)+f(n-1)s=f(n)endfor?s 8

26、3 已知一個(gè)數(shù)列的前3個(gè)數(shù)為3，4，5，以后每個(gè)數(shù)為前3個(gè)數(shù)的和，編程序求此數(shù)列的第26個(gè)數(shù)。 cleadime 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=f(n)endfor?s84 編程序求2+4+8+16+32+這樣的數(shù)之和。如果累加數(shù)大于1500時(shí)，則程序終止并輸出結(jié)果。 2046cleas=0for n=1 to 100 q=2ns=s+q if s1500 exit endifendfor?s85 編程序求2+4+8+16+32+這樣的數(shù)之和。如果累加數(shù)大于980時(shí)，則程序終止并輸出結(jié)果。 1

27、022cleas=0for n=1 to 100 q=2ns=s+q if s980 exit endifendfor?s86 編程序求2+4+8+16+32+這樣的數(shù)之和。如果累加數(shù)大于3000時(shí)，則程序終止并輸出結(jié)果。 4094cleas=0for n=1 to 100 q=2ns=s+q if s3000 exit endifendfor?s87 編程序求2+4+8+16+32+這樣的數(shù)之和。如果累加數(shù)大于5000時(shí)，則程序終止并輸出結(jié)果。 8190cleas=0for n=1 to 100 q=2ns=s+q if s5000 exit endifendfor?s88 編程序求1+3+

28、5+7+9+這樣的數(shù)之和。如果累加數(shù)大于750時(shí)，則程序終止并輸出結(jié)果。 784 cleas=0for n=1 to 800 step 2s=s+n if s750 exit endifendfor?s89 編程序求1+3+5+7+9+這樣的數(shù)之和。如果累加數(shù)大于1200時(shí)，則程序終止并輸出結(jié)果。 1225cleas=0for n=1 to 800 step 2s=s+n if s1200 exit endifendfor?s90 編程序求2+4+8+16+32+這樣的數(shù)之和。如果累加數(shù)大于9000時(shí)，則程序終止并輸出結(jié)果。 16382cleas=0for n=1 to 100 q=2ns=s

29、+q if s9000 exit endifendfor?s 91 編程序求1+3+5+7+9+這樣的數(shù)之和。如果累加數(shù)大于1300時(shí)，則程序終止并輸出結(jié)果。 1369cleas=0for n=1 to 800 step 2s=s+n if s1300 exit endifendfor?s92 編程序求1+3+5+7+9+這樣的數(shù)之和。如果累加數(shù)大于900時(shí)，則程序終止并輸出結(jié)果。 961cleas=0for n=1 to 800 step 2s=s+n if s900 exit endifendfor?s93 編程序求1+3+5+7+9+這樣的數(shù)之和。如果累加數(shù)大于1000時(shí)，則程序終止并輸

30、出結(jié)果。 1024cleas=0for n=1 to 800 step 2s=s+n if s1000 exit endifendfor?s94 編程序求1100能被7整除的個(gè)數(shù)。 14cleas=0for n=1 to 100 if n%7=0 s=s+1 endifendfor?s95 編程序求1600能被11整除的個(gè)數(shù)。 54 cleas=0for n=1 to 600 if n%11=0 s=s+1 endifendfor?s96 編程序求11000能被15整除的個(gè)數(shù)。 66 cleas=0for n=1 to 1000 if n%15=0 s=s+1 endifendfor?s97

31、編程序求1800能被5整除的個(gè)數(shù)。 160cleas=0for n=1 to 800 if n%5=0 s=s+1 endifendfor?s98 編寫(xiě)程序，求1，1000既能被6整除又能被7整除的數(shù)的個(gè)數(shù)。 2cleas=0for n=1 to 100 if n%6=0 and n%7=0 s=s+1 endifendfor?s99 編寫(xiě)程序，求1，500既能被3整除又能被5整除的數(shù)的個(gè)數(shù)。 33cleas=0for n=1 to 500 if n%3=0 and n%5=0 s=s+1endifendfor?s100編寫(xiě)程序，求1，500既能被6整除又能被7整除的數(shù)之和。 2772clea

32、s=0for n=1 to 500 if n%6=0 and n%7=0 s=s+n endifendfor?s101 已知24有8個(gè)正整數(shù)因子(即：1,2,3,4,6,8,12,24)，而24正好被其因子個(gè)數(shù)8整除。求1,100之間第10個(gè)能被其因子數(shù)目整除的正整數(shù)。 56cleas=0q=0for n=1 to 100m=0for j=1 to n if n%j=0 m=m+1 endif next if n%m=0 s=s+1 q=n if s9 &當(dāng)它大于9時(shí)，q已經(jīng)是第十個(gè)數(shù)了！ exit endif endifendfor?q 102求666,777范圍內(nèi)素?cái)?shù)的個(gè)數(shù)。 16 cle

33、as=0for n=666 to 777 q=0 for j=2 to sqrt(n) if n%j=0 q=1 endif next if q=0 s=s+1 endifendfor?s103求351,432之間所有既不能被3整除,又不能被8整除的正整數(shù)的個(gè)數(shù)。 47cleas=0for n=351 to 432 if n%3!=0 and n%8!=0 s=s+1 endifendfor?s104 求444,666范圍內(nèi)最大的素?cái)?shù)是多少？ 661 cleas=0for n=444 to 666 q=0 for j=2 to sqrt(n) if n%j=0 q=1 endif next i

34、f q=0 s=n endifendfor?s105 有一個(gè)分?jǐn)?shù)序列:2/1,3/2,5/3,8/5,13/8,21/13.（注：該數(shù)列從第二項(xiàng)開(kāi)始，其分子是前一項(xiàng)的分子與分母的和，而其分母是前一項(xiàng)的分子）,求出這個(gè)序列前24項(xiàng)的和。要求：按四舍五入的方式精確到小數(shù)點(diǎn)后第二位。 39.13cleas=0k=0m=2n=1for j=1 to 24k=m/ns=s+ky=mm=m+nn=yendfor?round(s,2) 106 已知24有8個(gè)正整數(shù)因子(即：1,2,3,4,6,8,12,24)，而24正好被其因子個(gè)數(shù)8整除。問(wèn)100,300之間有多少個(gè)能被其因子數(shù)目整除的數(shù)。 19cleas

35、=0q=0for n=100 to 300m=0for j=1 to n if n%j=0 m=m+1 endif next if n%m=0 s=s+1 endifendfor?s107 求1，5000之間能同時(shí)被3和7整除的數(shù)的個(gè)數(shù)。 238 cleas=0for n=1 to 5000 if n%3=0 and n%7=0 s=s+1 endifendfor?s108 設(shè)某國(guó)今年的國(guó)民生產(chǎn)總值為45600億元,若今后每年以8%的增長(zhǎng)率增長(zhǎng),計(jì)算多少年后能實(shí)現(xiàn)國(guó)民生產(chǎn)總值翻兩番? 19 2008cleas=0dime f(1000)f(1)=45600f(2)=49248 f(3)=531

36、87.84q=2 & 從第二年開(kāi)始計(jì)算年份，所以f(1)不算。for n=4 to 1000 f(n)=f(n-1)*1.08 s=f(n) q=q+1 if s= exit endifendfor?q109 求1，5000之間能被3或7整除的數(shù)的個(gè)數(shù)。 2142cleas=0for n=1 to 5000 if n%3=0 or n%7=0 s=s+1 endifendfor?s110 已知24有8個(gè)因子(即：1，2，3，4，6，8，12，24)，而24正好被8整除。求1,100之間第二大能被其因子數(shù)目整除的數(shù)。 88cleas=0q=0for n=100 to 1 step -1m=0fo

37、r j=1 to n if n%j=0 m=m+1 endif next if n%m=0 s=s+1 q=n if s1 &當(dāng)它大于1時(shí)，q已經(jīng)是第2個(gè)數(shù)了！ exit endif endifendfor?q111 若某整數(shù)平方等于某兩個(gè)正整數(shù)平方之和的正整數(shù)稱為弦數(shù)。例如：由于32+42=52，則5為弦數(shù)，求100，200之間最大的弦數(shù)。 200 cleas=100q=0for n=100 to 200 for j=1 to n-1 for k=1 to n-1 if k2+j2=n2 q=n if qs s=q endif endif endfor endforendfor?s112 若

38、某整數(shù)N的所有因子之和等于N的倍數(shù)，則N稱為多因子完備數(shù),如數(shù)28,其因子之和1+2+4+7+14+28=56=2*28,28是多因子完備數(shù)。求1,500之間有多少個(gè)多因子完備數(shù)。 5 cleas=0 for n=1 to 500 m=0 for j=1 to n if n%j=0 m=m+j endif next if m%n=0 s=s+1 endifendfor?s113 若某整數(shù)N的所有因子之和等于N的倍數(shù)，則N稱為多因子完備數(shù),如數(shù)28,其因子之和1+2+4+7+14+28=56=2*28,28是多因子完備數(shù)。求1,200之間有多少個(gè)多因子完備數(shù)。 4 cleas=0 for n=1

39、 to 200 m=0 for j=1 to n if n%j=0 m=m+j endif next if m%n=0 s=s+1 endifendfor?s114 設(shè)某國(guó)今年的國(guó)民生產(chǎn)總值為45600億元,若今后每年以9%的增長(zhǎng)率增長(zhǎng),計(jì)算多少年后能實(shí)現(xiàn)國(guó)民生產(chǎn)總值翻一番? 9cleas=0dime f(1000)f(1)=45600f(2)=45600*1.09 f(3)=(45600*1.09)*1.09q=2 & 從第二年開(kāi)始計(jì)算年份，所以f(1)不算。for n=4 to 1000 f(n)=f(n-1)*1.08 s=f(n) q=q+1 if s=45600*2 exit end

40、ifendfor?q115 已知24有8個(gè)正整數(shù)因子(即:1,2,3,4,6,8,12,24)，而24正好被其因子個(gè)數(shù)8整除。求100,300之間能被其因子數(shù)目整除的數(shù)中最大的數(shù)。 296cleas=0q=0for n=100 to 300m=0for j=1 to n if n%j=0 m=m+1 endif next if n%m=0 s=s+1 q=n endifendfor?q116 有一個(gè)三位數(shù)滿足下列條件: (1)此三位數(shù)的三位數(shù)字各不相同; (2)此三位數(shù)等于它的各位數(shù)字的立方和。試求這種三位數(shù)共有多少個(gè)？ 4cleas=0for n=100 to 999a=int(n/100)

41、b=int(n/10)%10c=n%10 if a3+b3+c3=n and a!=b and b!=c and c!=a s=s+1 endifendfor?s117 找滿足以下條件: X2+Y2+Z2=412 且X+Y+Z之值最大的三個(gè)正整數(shù)X,Y,Z, 求X+Y+Z之值. 71 cleas=0for x=1 to 41for y=1 to 41for z=1 to 41 if x2+y2+z2=412 k=x+y+z if ks s=k endif endifendforendforendfor?s118 求2，500之間的所有素?cái)?shù)的和。 21536 cleas=0for n=2 to

42、500 q=0 for j=2 to sqrt(n) if n%j=0 q=1 endif next if q=0 s=s+n endifendfor?s119 求3-1000之間最大的五個(gè)素?cái)?shù)之和。 4919cleas=0q=0for n=1000 to 3 step -1 m=0 for j=2 to sqrt(n) if n%j=0 m=1 endif next if m=0 s=s+n q=q+1 if q4 exit endif endifendfor?s120 有一個(gè)分?jǐn)?shù)序列:2/1,3/2,5/3,8/5,13/8,21/13.(即：該數(shù)列從第二項(xiàng)開(kāi)始，其分子是前一項(xiàng)的分子與分母

43、之和，而其分母是前一項(xiàng)的分子),求出這個(gè)序列前56項(xiàng)的和。要求：按四舍五入的方式精確到小數(shù)點(diǎn)后第三位。 90.909 cleas=0k=0m=2n=1for j=1 to 56k=m/ns=s+ky=mm=m+nn=yendfor?round(s,3)121 已知24有8個(gè)因子（即：1,2,3,4,6,8,12,24），而24正好被8整除。求100,300之間所有能被其因子數(shù)目整除的數(shù)之和。 3769cleas=0for n=100 to 300m=0for j=1 to n if n%j=0 m=m+1 endif next if n%m=0 s=s+n endifendfor?s122 問(wèn)

44、100,200之間有奇數(shù)個(gè)不同因子的整數(shù)共有多少個(gè)？ 5cleas=0for n=100 to 200 m=0 for j=1 to n if n%j=0 m=m+1 endif next if m%2=1 s=s+1 endifendfor?s123 水仙花數(shù)是一個(gè)三位正整數(shù),它等于它的各位數(shù)字的立方之和. 例如:153=13+53+33,所以153是水仙花數(shù). 試求所有的水仙花數(shù)之積。 cleas=1 &小蔡提醒：特別注意若s=0，則s乘任何數(shù)都會(huì)為0，所以此時(shí)s=1。for n=100 to 999a=int(n/100)b=int(n/10)%10c=n%10 if a3+b3+c3=n s=s*n endifendfor?s124 把一張一元鈔票,換成一分、二分和五分硬幣,每種至少8枚,問(wèn)有多少種方案? 80 cleas=0for a=8 to 100 for b=8 to 50 for c=8 to 20 if a+2*b+5*c=100 s=s+1 endi