國(guó)家計(jì)算機(jī)二級(jí)編程題

湖南省一級(jí)程序設(shè)計(jì)題庫(kù)過程及答案1編程序求出1-200以內(nèi)的能被7整除的數(shù)的平方和。377986cleas=0m=0fori=1to200ifi%7=0m=iA2s=s+mendifendfor?s2編程序求卜99的平方根的和并輸出結(jié)果。(保留小數(shù)點(diǎn)兩位)661.46cleas=0fori=lto99s=s+sqrt(i)endfor?round(s,2)3編程序求1?55的平方根的和并輸出結(jié)果。(保留小數(shù)點(diǎn)兩位)275.43cleas=0fori=lto55s=s+sqrt(i)endfor?round(s,2)4 編程序統(tǒng)計(jì)1?1000能被3整除的數(shù)的個(gè)數(shù)。 333cleas=0forn=lto1000ifn%3=0s=s+lendifendfor?s7編程序求出1到5000之間的能被5整除的前若干個(gè)偶數(shù)之和，當(dāng)和大于500時(shí)程序退出。 550cleas=0forn=10to5000step10s=s+nifs>500exitendifendfor?s8 編程序求在3000以內(nèi)被17或者23整除的正整數(shù)數(shù)的個(gè)數(shù)。299cleas=0forn=lto3000ifn%17=0orn%23=0s=s+lendifendfor?s9 序求在1000以內(nèi)被17或者23整除的正整數(shù)數(shù)的個(gè)數(shù)。 99cleas=0forn=lto1000ifn%17=0orn%23=0s=s+lendifendfor?s10 編程序求在5000以內(nèi)被17或者23整除的正整數(shù)數(shù)的個(gè)數(shù)。499cleaforn=lto5000ifn%17=0orn%23=0s=s+lendifendfor?s11 編程序求出1-100以內(nèi)的能被3整除的數(shù)的平方和。 112761cleas=0forn=lto100ifn%3=0s=s+nA2endifendfor?s12 已知一個(gè)數(shù)列的前3個(gè)數(shù)為0,0,1,以后每個(gè)數(shù)為前3個(gè)數(shù)的和，編程序求此數(shù)列的第36個(gè)數(shù)。 334745777cleadimef(36)f(D=of(2)=0f(3)=ls=0forn=4to36f(n)=f(n-3)+f(n-2)+f(n-l)s=f(n)endfor?s13 編程序求出1-100以內(nèi)的能被9整除的數(shù)的平方和。40986cleas=0forn=lto100ifn%9=0s=s+nA2endifendfor?s14 編程序求出1-200以內(nèi)的能被3整除的數(shù)的平方和。 882189cleas=0forn=lto200ifn%3=0s=s+nA2endifendfor?s15 編程序求出1-7000以內(nèi)能被3或者7整除數(shù)的個(gè)數(shù)。3000cleas=0forn=lto7000ifn%3=0orn%7=0s=s+lendifendfor?s16序求出l?3000以內(nèi)能被3或者5整除數(shù)的個(gè)數(shù)。 1400cleas=0forn=1to3000ifn%3=0orn%5=0s=s+lendifendfor?s17 編程序求出1-5000以內(nèi)能被3或者7整除數(shù)的個(gè)數(shù)。2142cleas=0forn=1to5000ifn%3=0orn%7=0s=s+lendifendfor?s18 編程序求出1-6000以內(nèi)能被3或者5整除數(shù)的個(gè)數(shù)。2800cleas=0forn=lto6000ifn%3=0orn%5=0s=s+lendifendfor?s19 編程序求出l~4000以內(nèi)能被3或者11整除數(shù)的個(gè)數(shù)。1575cleas=0forn=lto4000ifn%3=0orn%ll=0s=s+1endifendfor?s20 編程序求出1-5000以內(nèi)能被37整除的整數(shù)之和。 339660cleas=0forn=1to5000ifn%37=0s=s+nendifEndfor?s21 編程序求出1-6000以內(nèi)能被23整除的整數(shù)之和。 780390cleas=0forn=lto6000ifn%23=0s=s+nendifendfor22 編程序求出1?3000以內(nèi)能被33整除的整數(shù)之和。 135135cleas=0forn=lto3000ifn%33=0s=s+nendifendfor?s23 編程序求出1-5000以內(nèi)能被15整除的整數(shù)之和。 834165cleas=0forn=lto5000ifn%15=0s=s+nendifendfor?s24編程序求出100到200之間同時(shí)滿足除3余2和除5余3條件的數(shù)的個(gè)數(shù)。 6cleas=0forn=100to200ifn%3=2andn%5=3s=s+lendifendfor?s25 編程序求出1到300之間同時(shí)滿足除3余2和除5余3條件的數(shù)的個(gè)數(shù)。20cleas=0forn=lto300ifn%3=2andn%5=3s=s+lendifendfor?s26 編程序求出100到500之間同時(shí)滿足除3余2和除5余3條件的數(shù)的個(gè)數(shù)。 26cleas=0forn=100to500ifn%3=2andn%5=3s=s+lendifendfor?s27編程序求出1到400之間同時(shí)滿足除3余2和除5余3條件的數(shù)的個(gè)數(shù)。27cleas=0forn=Ito400ifn%3=2andn%5=3s=s+lendifendfor?s28 編程序求出100到600之間同時(shí)滿足除3余2和除5余3條件的數(shù)的個(gè)數(shù)。33cleas=0forn=100to600ifn%3=2andn%5=3s=s+lendifendfor?s29編程序求出1到500之間同時(shí)滿足除3余2和除5余3條件的數(shù)的個(gè)數(shù)。33cleas=0forn=lto500ifn%3=2andn%5=3s=s+lendifendfor?s301編程序求出2+4+8+16+32+…這樣的數(shù)之和。如果累加數(shù)大于500時(shí)，則程序終止并輸出結(jié)果。 510cleas=0forn=lto100s=s+2Anifs>500exitendifendfor?s31編程序求出1~100所有整數(shù)的立方和并輸出結(jié)果。 25502500cleas=0forn=1to100s=s+nA3endfor?s32編程序求出1~110所有整數(shù)的立方和并輸出結(jié)果。 37271025cleas=0forn=1to110s=s+nA3endfor?s33編程序求出1~66所有整數(shù)的立方和并輸出結(jié)果。 4888521cleas=0forn=1to66s=s+nA3endfor?s34編程序求出1~150所有整數(shù)的立方和并輸出結(jié)果。 128255625cleas=0forn=1to150s=s+nA3endfor?s35編程序求出1~180所有整數(shù)的立方和并輸出結(jié)果。 265364100cleas=0forn=1to180s=s+nA3endfor?s36編程序求出1~200所有整數(shù)的立方和并輸出結(jié)果。 404010000cleas=0forn=1to200s=s+nA3endfor?s37編程序求出1~21。所有整數(shù)的立方和并輸出結(jié)果。 490844025cleas=0forn=1to210s=s+nA3endfor?s38編程序求出S=1?130所有整數(shù)的立方和并輸出結(jié)果。 72505225cleas=0forn=1to130s=s+nA3endfor?s39編寫程序，計(jì)算1000以內(nèi)有多少個(gè)這樣的數(shù)，該數(shù)既能被6整除又能被8整除。41cleas=0forn=1to1000ifn%6=0andn%8=0s=s+1endifendfor?s40編程序求1?110所有整數(shù)的平方和并輸出結(jié)果。 449735cleas=0forn=1to110s=s+nA2endfor?s41編程序求1?120所有整數(shù)的平方和并輸出結(jié)果。 583220cleas=0forn=1to120s=s+nA2endfor?s42編程序求1?80所有整數(shù)的平方和并輸出結(jié)果。 173880cleas=0forn=1to80s=s+nA2endfor?s43編程序求1?150所有整數(shù)的平方和并輸出結(jié)果。 1136275cleas=0forn=1to150s=s+nA2endfor?s44編程序求1~60所有整數(shù)的平方和并輸出結(jié)果。 73810cleas=0forn=1to60s=s+nA2endfor?s45編程序求1~90所有整數(shù)的平方和并輸出結(jié)果。247065cleas=0forn=1to90s=s+nA2endfor?s46編程序求1~108所有整數(shù)的平方和并輸出結(jié)果。 425754cleas=0forn=1to108s=s+nA2endfor?s47編程序求1~145所有整數(shù)的平方和并輸出結(jié)果。 1026745cleas=0forn=1to145s=s+nA2endfor?s48編程序求1?250所有整數(shù)的平方和并輸出結(jié)果。 5239625cleas=0forn=1to250s=s+nA2endfor?s49編程序求1~300所有整數(shù)的平方和并輸出結(jié)果。 9045050cleas=0forn=1to300s=s+nA2endfor?s50編程序求出1到5000之間的能被7整除的前若干個(gè)數(shù)之和，當(dāng)和大于1500時(shí)退出并輸出結(jié)果。 1617cleas=0forn=1to5000ifn%7=0s=s+nendififs>1500exitendifendfor?s51編程序求出1到3000之間的能被3整除的前若干個(gè)數(shù)之和，當(dāng)和大于600時(shí)退出并輸出結(jié)果。630cleas=0forn=1to3000ifn%3=0s=s+nendififs>600exitendifendfor?s52編程序求出1到2000之間的能被9整除的前若干個(gè)數(shù)之和，當(dāng)和大于500時(shí)退出并輸出結(jié)果。594cleas=0forn=1to2000ifn%9=0s=s+nendififs>500exitendifendfor?s53編程序求出1到6000之間的能被5整除的前若干個(gè)偶數(shù)之和，當(dāng)和大于650時(shí)退出并輸出結(jié)果。 660cleas=0forn=1to6000ifn%5=0andn%2=0s=s+nendififs>650exitendifendfor?s54編程序求出1到7000之間的能被5整除的前若干個(gè)偶數(shù)之和，當(dāng)和大于500時(shí)退出并輸出結(jié)果。 550cleas=0forn=1to7000ifn%5=0andn%2=0s=s+nendififs>500exitendifendfor?s55編程序求出1到4000之間的能被5整除的前若干個(gè)偶數(shù)之和，當(dāng)和大于400時(shí)退出并輸出結(jié)果。 450cleas=0forn=1to4000ifn%5=0andn%2=0s=s+nendififs>400exitendifendfor?s56編程序求出1到8000之間的能被5整除的前若干個(gè)偶數(shù)之和，當(dāng)和大于750時(shí)退出并輸出結(jié)果。780cleas=0forn=1to8000ifn%5=0andn%2=0s=s+nendififs>750exitendifendfor?s57編程序統(tǒng)計(jì)1?200能被3整除的個(gè)數(shù)。66cleas=0forn=1to200ifn%3=0s=s+1endifendfor?s58編程序統(tǒng)計(jì)1?300能被3整除的個(gè)數(shù)。100cleas=0forn=1to300ifn%3=0s=s+1endifendfor?s59編程序統(tǒng)計(jì)200?400能被3整除的個(gè)數(shù)。67cleas=0forn=200to400ifn%3=0s=s+1endifendfor?s60編程序統(tǒng)計(jì)150?300能被3整除的個(gè)數(shù)。 51cleas=0forn=150to300ifn%3=0s=s+1endifendfor?s61編程序統(tǒng)計(jì)150?400能被3整除的個(gè)數(shù)。 84cleas=0forn=150to400ifn%3=0s=s+1endifendfor?s62編程序統(tǒng)計(jì)100~500能被3整除的個(gè)數(shù)。 133cleas=0forn=100to500ifn%3=0s=s+1endifendfor?s63編程序統(tǒng)計(jì)200?600能被3整除的個(gè)數(shù)。 134cleas=0forn=200to600ifn%3=0s=s+1endifendfor?s64編程序統(tǒng)計(jì)200~300能被3整除的個(gè)數(shù)。 34cleas=0forn=200to300ifn%3=0s=s+1endifendfor?s65編程序統(tǒng)計(jì)300~500能被3整除的個(gè)數(shù)。67cleas=0forn=300to500ifn%3=0s=s+1endifendfor?s66編程序求1~65的平方根的和并輸出結(jié)果。（保留小數(shù)點(diǎn)兩位）353.19cleas=0forn=1to65s=s+sqrt(n)endfor?round(s,2)67編程序求1~66的平方根的和并輸出結(jié)果。(保留小數(shù)點(diǎn)兩位)361.32cleas=0forn=1to66s=s+sqrt(n)endfor?round(s,2)68編程序求1?85的平方根和并輸出結(jié)果。(保留小數(shù)點(diǎn)兩位) 526.85cleas=0forn=1to85s=s+sqrt(n)endfor?round(s,2)69編程序求1~95的平方根的和并輸出結(jié)果。(保留小數(shù)點(diǎn)兩位)621.97cleas=0forn=1to95s=s+sqrt(n)endfor?round(s,2)70編程序求1~125的平方根的和并輸出結(jié)果。(保留小數(shù)點(diǎn)兩位)937.08cleas=0forn=1to125s=s+sqrt(n)endfor?round(s,2)71編程序求1?135的平方根的和并輸出結(jié)果。(保留小數(shù)點(diǎn)兩位)1051.31cleas=0forn=1to135s=s+sqrt(n)endfor?round(s,2)72編程序求1~155的平方根的和并輸出結(jié)果。(保留小數(shù)點(diǎn)兩位)1292.51cleas=0forn=1to155s=s+sqrt(n)endfor?round(s,2)73編程序求1~115的平方根的和并輸出結(jié)果。(保留小數(shù)點(diǎn)兩位)827.32cleas=0forn=1to115s=s+sqrt(n)endfor?round(s,2)74編程序求1?78的平方根的和并輸出結(jié)果。(保留小數(shù)點(diǎn)兩位) 463.46cleas=0forn=1to78s=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ù)。 24548655cleadimef(30)f(1)=0f(2)=1f(3)=2s=0forn=4to30f(n)=f(n-3)+f(n-2)+f(n-1)s=f(n)endfor?s76已知一個(gè)數(shù)列的前3個(gè)數(shù)為0,1,1,以后每個(gè)數(shù)為前3個(gè)數(shù)的和，編程序求此數(shù)列的第20個(gè)數(shù)。35890cleadimef(20)f(1)=0f(2)=1f(3)=1s=0forn=4to20f(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ù)。1166220cleadimef(25)f⑴=0f(2)=1f(3)=2s=0forn=4to25f(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ù)。 101902cleadimef(20)f⑴=1f(2)=2f(3)=3s=0forn=4to20f(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ù)。 516743378cleadimef(35)f(1)=0f(2)=1f(3)=2s=0forn=4to35f(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ù)。 950439251cleadimef(35)f(1)=1f⑵=2f(3)=3s=0forn=4to35f(n)=f(n-3)+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ù)。 25527448cleadimef(28)f⑴=3f(2)=4f(3)=5s=0forn=4to28f(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ù)。 537346739cleadimef(33)f(1)=3f(2)=4f(3)=5s=0forn=4to33f(n)=f(n-3)+f(n-2)+f(n-1)s=f(n)endfor?s83已知一個(gè)數(shù)列的前3個(gè)數(shù)為3,4,5,以后每個(gè)數(shù)為前3個(gè)數(shù)的和，編程序求此數(shù)列的第26個(gè)數(shù)。 7545856cleadimef(26)f(1)=3f(2)=4f(3)=5s=0forn=4to26f(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=0forn=1to100q=2Ans=s+qifs>1500exitendifendfor?s85編程序求2+4+8+16+32+…這樣的數(shù)之和。如果累加數(shù)大于980時(shí)，則程序終止并輸出結(jié)果。 1022cleas=0forn=1to100q=2Ans=s+qifs>980exitendifendfor?s86編程序求2+4+8+16+32+…這樣的數(shù)之和。如果累加數(shù)大于3000時(shí)，則程序終止并輸出結(jié)果。 4094cleas=0forn=1to100q=2Ans=s+qifs>3000exitendifendfor?s87編程序求2+4+8+16+32+...這樣的數(shù)之和。如果累加數(shù)大于5000時(shí)，則程序終止并輸出結(jié)果。 8190cleas=0forn=1to100q=2Ans=s+qifs>5000exitendifendfor?s88編程序求1+3+5+7+9+…這樣的數(shù)之和。如果累加數(shù)大于750時(shí)，則程序終止并輸出結(jié)果。784cleas=0forn=1to800step2s=s+nifs>750exitendifendfor?s89編程序求1+3+5+7+9+…這樣的數(shù)之和。如果累加數(shù)大于1200時(shí)，則程序終止并輸出結(jié)果。1225cleas=0forn=1to800step2s=s+nifs>1200exitendifendfor?s90編程序求2+4+8+16+32+…這樣的數(shù)之和。如果累加數(shù)大于9000時(shí)，則程序終止并輸出結(jié)果。 16382cleas=0forn=1to100q=2Ans=s+qifs>9000exitendifendfor?s91編程序求1+3+5+7+9+…這樣的數(shù)之和。如果累加數(shù)大于1300時(shí)，則程序終止并輸出結(jié)果。 1369cleas=0forn=1to800step2s=s+nifs>1300exitendifendfor?s92編程序求1+3+5+7+9+…這樣的數(shù)之和。如果累加數(shù)大于900時(shí)，則程序終止并輸出結(jié)果。961cleas=0forn=1to800step2s=s+nifs>900exitendifendfor?s93編程序求1+3+5+7+9+…這樣的數(shù)之和。如果累加數(shù)大于1000時(shí)，則程序終止并輸出結(jié)果。 1024cleas=0forn=1to800step2s=s+nifs>1000exitendifendfor?s94編程序求1?100能被7整除的個(gè)數(shù)。 14cleas=0forn=1to100ifn%7=0s=s+1endifendfor?s95編程序求1?600能被11整除的個(gè)數(shù)。54cleas=0forn=1to600ifn%11=0s=s+1endifendfor?s96編程序求1?1000能被15整除的個(gè)數(shù)。66cleas=0forn=1to1000ifn%15=0s=s+1endifendfor?s97編程序求1?800能被5整除的個(gè)數(shù)。 160cleas=0forn=1to800ifn%5=0s=s+1endifendfor?s98編寫程序，求［1,1000］既能被6整除又能被7整除的數(shù)的個(gè)數(shù)。2cleas=0forn=1to100ifn%6=0andn%7=0s=s+1endifendfor?s99編寫程序，求［1,500］既能被3整除又能被5整除的數(shù)的個(gè)數(shù)。33cleas=0forn=1to500ifn%3=0andn%5=0s=s+1endifendfor?s100編寫程序，求［1，500］既能被6整除又能被7整除的數(shù)之和。2772cleas=0forn=1to500ifn%6=0andn%7=0s=s+nendifendfor?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=0forn=1to100m=0forj=1tonifn%j=Om=m+1endifnextifn%m=0s=s+1q=nifs>9&&當(dāng)它大于9時(shí)，q已經(jīng)是第十個(gè)數(shù)了！exitendifendifendfor?q102求［666,777］范圍內(nèi)素?cái)?shù)的個(gè)數(shù)。 16cleas=0forn=666to777q=0forj=2tosqrt(n)ifn%j=Oq=1endifnextifq=0s=s+1endifendfor?s103求［351,432］之間所有既不能被3整除，又不能被8整除的正整數(shù)的個(gè)數(shù)。47cleas=0forn=351to432ifn%3!=0andn%8!=0s=s+1endifendfor?s104 求［444,666］范圍內(nèi)最大的素?cái)?shù)是多少？ 661cleas=0forn=444to666q=0forj=2tosqrt(n)ifn%j=Oq=1endifnextifq=0s=nendifendfor?s105 有一個(gè)分?jǐn)?shù)序列:2/1,3/2,5/3,8/5,13/8,21/13….(注:該數(shù)列從第二項(xiàng)開始，其分子是前一項(xiàng)的分子與分母的和，而其分母是前一項(xiàng)的分子)，求出這個(gè)序列前24項(xiàng)的和。要求：按四舍五入的方式精確到小數(shù)點(diǎn)后第二位。 39.13cleas=0k=0m=2n=1forj=1to24k=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整除。問［100,300］之間有多少個(gè)能被其因子數(shù)目整除的數(shù)。 19cleas=0q=0forn=100to300m=0forj=1tonifn%j=Om=m+1endifnextifn%m=Os=s+1endifendfor?s107求［1,5000］之間能同時(shí)被3和7整除的數(shù)的個(gè)數(shù)。 238cleas=0forn=1to5000ifn%3=0andn%7=0s=s+1endifendfor?s108 設(shè)某國(guó)今年的國(guó)民生產(chǎn)總值為45600億元,若今后每年以8%的增長(zhǎng)率增長(zhǎng)，計(jì)算多少年后能實(shí)現(xiàn)國(guó)民生產(chǎn)總值翻兩番？ 19 2008cleas=0dimef(1000)f(1)=45600f(2)=49248f(3)=53187.84q=2 &&從第二年開始計(jì)算年份，所以f(1)不算。forn=4to1000f(n)=f(n-1)*1.08s=f(n)q=q+1ifs>=182400exitendifendfor?q109 求［1,5000］之間能被3或7整除的數(shù)的個(gè)數(shù)。 2142cleas=0forn=1to5000ifn%3=0orn%7=0s=s+1endifendfor?s110 已知24有8個(gè)因子(即：1,2,3,4,6,8,12,24),而24正好被8整除。求［1,100］之間第二大能被其因子數(shù)目整除的數(shù)。 88cleas=0q=0forn=100to1step-1m=0forj=1tonifn%j=Om=m+1endifnextifn%m=0s=s+1q=nifs>1&&當(dāng)它大于1時(shí)，q已經(jīng)是第2個(gè)數(shù)了！exitendifendifendfor?q111若某整數(shù)平方等于某兩個(gè)正整數(shù)平方之和的正整數(shù)稱為弦數(shù)。例如：由于3A2+4八2=5八2,貝嶼為弦數(shù)，求［100,200］之間最大的弦數(shù)。200cleas=100q=0forn=100to200forj=1ton-1fork=1ton-1ifkA2+jA2=nA2q=nifq>ss=qendifendifendforendforendfor?s112若某整數(shù)N的所有因子之和等于N的倍數(shù)，則N稱為多因子完備數(shù)，如數(shù)28,其因子之和1+2+4+7+14+28=56=2*28,28是多因子完備數(shù)。求［1,500］之間有多少個(gè)多因子完備數(shù)。5cleas=0forn=1to500m=0forj=1tonifn%j=0m=m+jendifnextifm%n=0s=s+1endifendfor?s113 若某整數(shù)N的所有因子之和等于N的倍數(shù)，則N稱為多因子完備數(shù)，如數(shù)28,其因子之和1+2+4+7+14+28=56=2*28,28是多因子完備數(shù)。求［1,200］之間有多少個(gè)多因子完備數(shù)。4cleas=0forn=1to200m=0forj=1tonifn%j=0m=m+jendifnextifm%n=0s=s+1endifendfor?s114 設(shè)某國(guó)今年的國(guó)民生產(chǎn)總值為45600億元,若今后每年以9%的增長(zhǎng)率增長(zhǎng)，計(jì)算多少年后能實(shí)現(xiàn)國(guó)民生產(chǎn)總值翻一番？9cleas=0dimef(1000)f(1)=45600f(2)=45600*1.09f(3)=(45600*1.09)*1.09q=2 &&從第二年開始計(jì)算年份，所以f(1)不算。forn=4to1000*n)=f(n.1)T.O8s=f(n)q=q+iifs>=45600*2exitendifendfor?q115 已知24有8個(gè)正整數(shù)因子(即4,6,8,12,24),而24正好被其因子個(gè)數(shù)8整除。求［100,300］之間能被其因子數(shù)目整除的數(shù)中最大的數(shù)。 296cleas=0q=0forn=100to300m=0forj=1tonifn%j=Om=m+1endifnextifn%m=0s=s+1q=nendifendfor?q116 有一個(gè)三位數(shù)滿足下列條件：(1)此三位數(shù)的三位數(shù)字各不相同；(2)此三位數(shù)等于它的各位數(shù)字的立方和。試求這種三位數(shù)共有多少個(gè)？ 4cleas=0forn=100to999a=int(n/100)b=int(n/10)%10c=n%10ifaA3+bA3+cA3=nanda!=bandb!=candc!=as=s+1endifendfor?s117 找滿足以下條件：XA2+YA2+ZA2=4M2且X+Y+Z之值最大的三個(gè)正整數(shù)X,Y,Z,求X+Y+Z之值.71cleas=0forx=1to41fory=1to41forz=1to41ifxA2+yA2+zA2=41A2k=x+y+zifk>ss=kendifendifendforendforendfor?s118 求［2,500］之間的所有素?cái)?shù)的和。 21536cleas=0forn=2to500q=0forj=2tosqrt(n)ifn%j=Oq=iendifnextifq=0s=s+nendifendfor?s119 求［3?1000］之間最大的五個(gè)素?cái)?shù)之和。 4919cleas=0q=0forn=1000to3step-1m=0forj=2tosqrt(n)ifn%j=Om=1endifnextifm=0s=s+nq=q+1ifq>4exitendifendifendfor?s120 有一個(gè)分?jǐn)?shù)序列:2/1,3/2,5/3,8/5,13/8,21/13.…（即：該數(shù)列從第二項(xiàng)開始，其分子是前一項(xiàng)的分子與分母之和，而其分母是前一項(xiàng)的分子），求出這個(gè)序列前56項(xiàng)的和。要求：按四舍五入的方式精確到小數(shù)點(diǎn)后第三位。 90.909cleas=0k=0m=2n=1forj=1to56k=m/ns=s+ky=mm=m+nn=yendfor?round（s,3）121 已知24有8個(gè)因子（即：123,4,6,8,12,24）,而24正好被8整除。求［100,300］之間所有能被其因子數(shù)目整除的數(shù)之和。 3769cleas=0forn=100to300m=0forj=1tonifn%j=Om=m+1endifnextifn%m=0s=s+nendifendfor?s122 問［100,200］之間有奇數(shù)個(gè)不同因子的整數(shù)共有多少個(gè)？ 5cleas=0forn=100to200m=0forj=1tonifn%j=Om=m+1endifnextifm%2=1s=s+1endifendfor?s123水仙花數(shù)是一個(gè)三位正整數(shù)，它等于它的各位數(shù)字的立方之和.例如:153=1八3+5八3+3八3,所以153是水仙花數(shù).試求所有的水仙花數(shù)之積。8547940170cleas=1 &&小蔡提醒：特別注意若s=0,則s乘任何數(shù)都會(huì)為0,所以此時(shí)s=1。forn=100to999a=int(n/100)b=int(n/10)%10c=n%10ifaA3+bA3+cA3=ns=s*nendifendfor?s124 把一張一元鈔票，換成一分、二分和五分硬幣，每種至少8枚,問有多少種方案？80cleas=0fora=8to100forb=8to50forc=8to20ifa+2*b+5*c=100s=s+1endifendforendfornext?s125 求［200,300］之間最小的一個(gè)有奇數(shù)個(gè)不同因子的整數(shù)。 225cleas=0forn=200to300m=0forj=1tonifn%j=Om=m+1endifnextifm%2=1s=nexitendifendfor?s126 一個(gè)數(shù)出現(xiàn)在該數(shù)的平方數(shù)的右邊，稱這個(gè)數(shù)為，，同構(gòu)數(shù)九例如，5出現(xiàn)在平方數(shù)25的右邊，25出現(xiàn)在平方數(shù)625的右邊，則5、25都是“同構(gòu)數(shù)”。找出1到1000之間的所有“同構(gòu)數(shù)”的個(gè)數(shù)。 6cleas=0forn=2to1000docasecasen<10p=nA2%10casen<100p=nA2%100casen<1000p=nA2%1000endcaseifp=n??ns=s+1endifendfor?s127 求［300,400］之間最小的一個(gè)有奇數(shù)個(gè)不同因子的整數(shù)。 324cleas=0forn=300to400m=0forj=1tonifn%j=Om=m+1endifnextifm%2=1s=nexitendifendfor?s128 求［200,300］之間第二大有奇數(shù)個(gè)不同因子的整數(shù)。256cleas=0q=0forn=300to200step-1m=0forj=1tonifn%j=0m=m+1endifnextifm%2=1s=nq=q+1ifq>1exitendifendifendfor?s129 一個(gè)14*14方陣A(iJ),其每個(gè)元素的值為該元素下標(biāo)的立方和，求出該矩陣所有元素的累加和(注：i,j從1到14). 308700cleas=0forn=1to14form=1to14s=s+nA3+mA3endfornext?s130 求［100,200］之間最大的有奇數(shù)個(gè)不同因子的整數(shù)。196cleas=0forn=100to200m=0forj=1tonifn%j=Om=m+1endifnextifm%2=1s=nendifendfor?s131一個(gè)數(shù)如果恰好等于它的所有真因子之和，這個(gè)數(shù)就稱為“完數(shù)”。例如,6的真因子為1,2,3,而6=1+2+3,因此，6是“完數(shù)”。求1000以內(nèi)的所有完數(shù)之和。530cleas=0forn=1to1000m=0forj=1ton/2ifn%j=0m=m+jendifnextifm=ns=s+nendifendfor?s132 一個(gè)數(shù)如果恰好等于它的所有真因子之和，這個(gè)數(shù)就稱為“完數(shù)”。例如，6的真因子為1,2,3,而6=1+2+3,因此,6是“完數(shù)”。求［8100,8200］之間的所有完數(shù)。8128cleaforn=8100to8200m=0forj=1ton/2ifn%j=Om=m+jendifnextifm=n??nendifendfor133 一個(gè)數(shù)如果恰好等于它的所有真因子之和，這個(gè)數(shù)就稱為“完數(shù)”。例如,6的真因子為1,2,3,而6T+2+3,因此，6是“完數(shù)”。求［1,1000］之間的最大完數(shù)。496cleas=0forn=1to1000m=0forj=1ton/2ifn%j=Om=m+jendifnextifm=ns=nendifendfor?s134一個(gè)數(shù)如果恰好等于它的所有真因子之和，這個(gè)數(shù)就稱為“完數(shù)”。例如，6的真因子為1,2,3,而6=1+2+3,因此，6是“完數(shù)”。求［1,1000］之間的第二大完數(shù)。28cleas=0q=0forn=1000to1step-1m=0forj=1ton/2ifn%j=Om=m+jendifnextifm=nq=q+1s=nifq>1exitendifendifendfor?s135 求數(shù)學(xué)式1?1/2+1/3?1/4+1/5?1/6+…+1/99-1/100的值(按四舍五入方式精確到小數(shù)點(diǎn)后4位) 0.6882cleadimef(50)f(1)=1-1/2f(2)=1/3-1/4f(3)=1/5-1/6s=0forn=1to50f(n)=1/(2*n-1)-1/(2*n)s=s+f(n)endfor?round(s,4)136 求［100,200］之間第二大有奇數(shù)個(gè)不同因子的整數(shù)。169cleas=0q=0forn=200to100step-1m=0forj=1tonifn%j=0m=m+1endifnextifm%2=1s=nq=q+iifq>1exitendifendifendfor?s137 求正整數(shù)［1,500］中，能同時(shí)滿足用3除余2,用5除余3,用7除余2的所有正整數(shù)的個(gè)數(shù)。5cleas=0forn=1to500ifn%3=2andn%5=3andn%7=3s=s+1endifendfor?s138 某自然數(shù)平方的末幾位與該數(shù)相同時(shí)，稱此數(shù)為自同構(gòu)數(shù)，例如25A2=625,則稱25為自同構(gòu)數(shù)，求出［10,100000］之間最大的自同構(gòu)數(shù)。 90625cleas=0forn=10to100000docasecasen<100p=nA2%100casen<1000p=nA2%1000casen<10000p=nA2%10000casen<100000p=nA2%100000endcaseifp=ns=nendifendfor?s139設(shè)某四位數(shù)的千位數(shù)字與十位數(shù)字的和等于百位數(shù)字與個(gè)位數(shù)字的積，例如，對(duì)于四位數(shù)：9512,9+1=5*2,試問所有這樣的四位數(shù)之和是多少？1078289cleas=0forn=1000to9999a=int(n/1000)b=int(n/100)%10c=int(n/10)%10d=n%10ifa+c=b*ds=s+nendifendfor?s140 求符合下列條件的四位完全平方數(shù)(某個(gè)數(shù)的平方數(shù)為完全平方數(shù))，它的千位數(shù)字與十位數(shù)字之和等于百位數(shù)字與個(gè)位數(shù)字之積，例如，3136=56^2,且3+3=1*6故3136是所求的四位完全平方數(shù).求其中最大的一個(gè)數(shù)。 7921cleaforn=9999to1000step-1a=int(n/1000)b=int(n/100)%10c=int(n/10)%10d=n%10e=sqrt(n)ifa+c=b*dande%1=0s=nexitendifendfor?s141求在［10,1000］之間的所有完備數(shù)之和。各真因子之和(不包括自身)等于其本身的正整數(shù)稱為完數(shù)。例如：6=1+2+3,6是完數(shù)。 524cleas=0forn=10to1000m=0forj=1ton/2ifn%j=Om=m+jendifnextifm=ns=s+nendifendfor?s142求滿足A*B=718368,使A+B最小，且A,B(A<B)為正整數(shù)的A的值。672cleas=100000fora=1to10000forb=1to10000ifa*b=718368anda<bk=a+bifk<ss=kj=aendifendifendforendfor?j143 求［200,300］之間最大的有奇數(shù)個(gè)不同因子的整數(shù)。289cleas=0forn=200to300m=0forj=1tonifn%j=0m=m+1endifnextifm%2=1s=nendifendfor?s144 求［3333,6666］之間所有能被5整除同時(shí)能被7整除的數(shù)，問共有多少個(gè)這樣的數(shù)？95cleas=0forn=3333to6666ifn%5=0andn%7=0s=s+1endifendfor?s145設(shè)某四位數(shù)的各位數(shù)字的平方和為100,且該數(shù)能被3整除。求共有多少個(gè)這樣的四位數(shù)。 24cleas=0forn=1000to9999a=int(n/1000)b=int(n/100)%10c=int(n/10)%10d=n%10ifaA2+bA2+cA2+dA2=100andn%3=0??ns=s+1endifendfor?s146若一個(gè)四位正整數(shù)是另一個(gè)正整數(shù)的平方，且各位數(shù)字的和是一個(gè)平方數(shù)，則稱該四位正整數(shù)是“四位雙平方數(shù)”。例如：由于7396=86八2,且7+3+9+6=25=5A2,則稱7396是“四位雙平方數(shù)”。求所有“四位雙平方數(shù)”中最小的一個(gè)“四位雙平方數(shù)1521cleas=0forn=1000to9999a=int(n/1000)b=int(n/100)%10c=int(n/10)%10d=n%10e=sqrt(n)f=sqrt(a+b+c+d)iff%1=0ande%1=0s=nexitendifendfor?s147計(jì)算y=1+2/3+3/5+4/7+...+n/(2*n-1)(n=50),要求：按四舍五入的方式精確到小數(shù)點(diǎn)后第二位。26.47cleadimef(50)f(1)=1f(2)=2/3f(3)=3/5s=0forn=1to50f(n)=n/(2*n-1)s=s+f(n)endfor?round(s,2)148若兩個(gè)連續(xù)的自然數(shù)的乘積減1后是素?cái)?shù)，則稱此兩個(gè)連續(xù)自然數(shù)為友數(shù)對(duì),該素?cái)?shù)稱為友素?cái)?shù)。例如，由于8*9-1=71,因此，8與9是友數(shù)對(duì)，71是友素?cái)?shù)。求［100,200］之間的所有友素?cái)?shù)之和。 983696cleas=0forn=100to199q=n*(n+1)-1w=0forj=2tosqrt(q)ifq%j=Ow=1endifnextifw=0s=s+qendifendfor?s149求數(shù)列：2/1,3/2,5/3,8/5,13/8,21/13,……前50項(xiàng)之和(注:此數(shù)列從第二項(xiàng)開始，其分子是前一項(xiàng)的分子與分母之和，其分母是前一項(xiàng)的分子)。(按四舍五入的方式精確到小數(shù)點(diǎn)后第二位) 81.20cleas=0k=0m=2n=1forj=1to50k=m/ns=s+ky=mm=m+nn=yendfor?round(s,2)150求［1,1000］之間能被3整除，且至少有一位上的數(shù)是5的所有數(shù)之和。46509cleas=0forn=15to1000step3docasecasen<100a=int(n/10)b=n%10ifa=5orb=5s=s+nendifcasen<1000c=int(n/100)d=int(n/10)%10e=n%10ifc=5ord=5ore=5s=s+nendifendcaseendfor?s151當(dāng)m的值為50時(shí)，計(jì)算下列公式之值：t=1-1/(2*2)-1/(3*3)-...-1/(m*m)要求：按四舍五入的方式精確到小數(shù)點(diǎn)后第四位。0.3749cleadimef(50)f(2)=-1/4f(3)=-1/9f(4)=-1/16s=1forn=2to50f(n)=-1/(n*n)s=s+f(n)endfor?round(s,4)152若某整數(shù)N的所有因子之和等于N的倍數(shù)，則N稱為多因子完備數(shù)，如數(shù)28,其因子之和1+2+4+7+14+28=56=2*28,28是多因子完備數(shù)。求［1,500］之間最大的多因子完備數(shù)。 496cleas=0forn=1to500m=0forj=1tonifn%j=Om=m+jendifnextifm%n=0s=nendifendfor?s153求出［10,1000］以內(nèi)同時(shí)滿足除以7余5,除以5余3,除以3余1的所有整數(shù)的個(gè)數(shù)。9cleas=0forn=10to1000ifn%3=1andn%5=3andn%7=5s=s+1endifendfor?s154 (1A2/(1*3))+(4A2/(3*5))+(6A2/(5*7))+...+(2k)A2/((2k-1)*(2k+1))(按四舍五入的方式精確到小數(shù)點(diǎn)后第三位)20.488cleadimef(20)f(1)=4/3f(2)=16/15f(3)=36/35s=0forn=1to20f(n)=(2*n)A2/((2*n-1)*(2*n+1))s=s+f(n)endfor?round(s,3)155求級(jí)數(shù)1/(1*2)+1/(2*3)+.?…+1/(N*(N+1))的和的近似值，直到級(jí)數(shù)中有一項(xiàng)的值小于1E—4為止.要求：按四舍五入的方式精確到小數(shù)點(diǎn)后第二位。0.99cleas=0forn=1to100000k=1/(n*(n+1)) &&一定要記得分母是多項(xiàng)相乘時(shí)，分母要加括號(hào)?。=s+kifk<1/10000exitendifendfor?round(s,2)156 求1000以內(nèi)，同時(shí)能被3和7整除的所有自然數(shù)之和的平方根。(按四舍五入的方式精確到小數(shù)點(diǎn)后第二位)。153.91cleas=0forn=1to1000ifn%3=0andn%7=0s=s+nendifendfor?round(sqrt(s),2)157已知S1=1,S2=1+2,S3=1+2+4,S4=1+2+4+8,S5=1+2+4+8+16,S=S1+S2+S3+S4+S5+...+S20^<o 2097130cleaq=0forn=0to19w=2Anq=q+ws=s+qendfor?s158求Y=1?1/2+1/3?1/4+.?「1/2*n前30項(xiàng)之和。要求：按四舍五入的方式精確到小數(shù)點(diǎn)后第二位。 0.68cleadimef(15)f(1)=1/2f(2)=1/12f(3)=1/30s=0forn=1to15f(n)=1/(2*n-1)-1/(2*n)s=s+f(n)endfor?round(s,2)159 已知S1=1,S2=1+3,S3=1+3+5,S4=1+3+5+7,S5=1+3+5+7+9 編制一個(gè)程序求S=S1+S2+S3+S4+S5+…+S20的值.2870cleadimef(20)f(1)=1f(2)=4f(3)=9s=14forn=4to20f(n)=f(n-1)+(2*n-1)s=s+f(n)endfor?s160已知S1=2,S2=2+4,S3=2+4+6,S4=2+4+6+8,S5=2+4+6+8+10,編制一個(gè)程序求S=S1+S2+S3+S4+S5+...+S20的值.3080cleadimef(20)f⑴=2f(2)=6f(3)=12s=20forn=4to20f(n)=f(n-1)+(2*n)s=s+f(n)endfor?s161當(dāng)n=100時(shí)，計(jì)算輸出下列多項(xiàng)式的值S=(1-1/2)+(1/3-1/4)+……+(1/(2*n-1)-1/(2*n))按四舍五入的方式精確到小數(shù)點(diǎn)后第三位。 0.691cleadimef(100)f(1)=1/2f(2)=1/12f(3)=1/30s=0forn=1to100f(n)=1/(2*n-1)-1/(2*n)s=s+f(n)endfor?round(s,3)162當(dāng)n的值為25時(shí)，計(jì)算下列公式的值s=1+1/1!+1/2!+1/3!+...+1/n!要求:按四舍五入的方式精確到小數(shù)點(diǎn)后第四位。2.7183cleadimef(25)f(1)=1f(2)=1/2f(3)=1/6s=1forn=1to25P=1forj=1tonP=P*jf(n)=1/pendfors=s+f(n)&&s的初值在第一個(gè)for的前面，絕對(duì)不要進(jìn)入第：個(gè)for循環(huán)endfor?round(s,4)163 當(dāng)n的值為50時(shí)，求S的值。S=1+1/(1+2)+1/(1+2+3)+…+1/(1+2+3+…+N)要求：按四舍五入的方式精確到小數(shù)點(diǎn)后第四位。1,9608cleadimef(50)f⑴=1f(2)=3f(3)=6s=0k=0forn=1to50k=k+nf(n)=1/ks=s+f(n)endfor?round(s,4)164當(dāng)m的值為50時(shí)，計(jì)算下列公式之值：1=1+1/(2八2)+1/(3八2)+-+1/011八2)(按四舍五入的方式精確到小數(shù)點(diǎn)后第四位)。 1.6251cleadimef(50)f⑴=1f(2)=4f(3)=9s=0forn=1to50f(n)=1/nA2s=s+f(n)endfor?round(s,4)165當(dāng)m的值為50時(shí)，計(jì)算下列公式的值：T=1-1/2-1/3-1/4-…-1/m要求：按四舍五入的方式精確到小數(shù)點(diǎn)后第四位。-2.4992cleadimef(49)f⑴=?2f(2)=-3f(3)=-4s=1forn=1to49f(n)=-(n+1)s=s+1/f(n)endfor?round(s,4)166 求［500,1999］之間的十位數(shù)字為7的素?cái)?shù)的個(gè)數(shù)。 22cleas=0forn=500to1999m=0q=int(n/10)%10forj=2tosqrt(n)ifn%j=0m=1endifnextifm=0andq=7s=s+1endifendfor?s167 求［351,432］之間所有既不能被3整除，又不能被8整除的整數(shù)的和。18413cleas=0forn=351to432ifn%3!=0andn%8!=0s=s+nendifendfor?s168 求從6開始的前6個(gè)同構(gòu)數(shù)(若某數(shù)與其本身的平方數(shù)低位部分相等，則稱之為同構(gòu)數(shù)，如6,其平方數(shù)為36)的和。 10484cleas=0q=0forn=6to9999docasecasen<10p=nA2%10casen<100p=nA2%100casen<1000p=nA2%1000casen<10000p=nA2%10000endcaseifn=pq=q+is=s+nifq>6exitendifendifnext?s169 若某整數(shù)N的所有因子之和等于N的倍數(shù)，則N稱為多因子完備數(shù)，如數(shù)28淇因子之和1+2+4+7+14+28=56=2*28,28是多因子完備數(shù)。求［1,500］之間按從小到大的順序排列的第三個(gè)多因子完備數(shù)。28cleas=0forn=1to500m=0forj=1tonifn%j=Om=m+jendifnextifm%n=0s=s+1ifs>2exitendifendifendfor?n170 求000,10000］中其各位數(shù)字之和能被7整除的數(shù)的個(gè)數(shù)。 1408cleas=0q=0forn=100to10000docasecasen<1000a=int(n/100)b=int(n/10)%10c=n%10q=a+b+ccasen<10000d=int(n/1000)e=int(n/100)%10f=int(n/10)%10g=n%10q=d+e+f+gendcaseifq%7=0s=s+1endifendfor?s171 若(x3y,z)滿足方程：'八2+丫八2M八2=55八2(注：要求x>y>z),則(x,y,z)稱為方程的一個(gè)解。試求方程的整數(shù)解(包括負(fù)整數(shù)解)的個(gè)數(shù)。62cleas=0forx=-55to55fory=-55to55forz=-55to55ifxA2+yA2+zA2=55A2andx>yandy>zs=s+1endifendforendfornext?s172一只猴子一天從山上摘來一袋桃子，從這天開始，它每天都要把袋中的桃子平分為二堆，吃掉其中的一堆，然后再?gòu)氖Ｏ碌奶抑心贸鲆粋€(gè)解讒，等到第10天，它發(fā)現(xiàn)袋中只有一只桃可吃啦，問猴子總共摘了多少桃。1534cleadimef(10)f(1)=1f(2)=4f(3)=10s=0forn=4to10f(n)=2*f(n-1)+2s=f(n)endfor?s173編程求?。簭?開始的前6個(gè)同構(gòu)數(shù)的和(若某數(shù)與其本身的平方數(shù)低位部分相等，則稱之同構(gòu)數(shù)，如：6,其平方數(shù)為36,貝帕為一個(gè)同構(gòu)數(shù))。10484cleas=0q=0forn=6to9999docasecasen<10p=nA2%10casen<100p=nA2%100casen<1000p=nA2%1000casen<10000p=nA2%10000endcaseifn=pq=q+1s=s+nifq>6exitendifendifnext?s174 編程求取：S=1/2+2/3+3/5+5/8+……的前30項(xiàng)的和（注：該級(jí)數(shù)從第二項(xiàng)開始，其分子是前一項(xiàng)的分母，其分母是前一項(xiàng)的分子與分母的和）。要求：按四舍五入的方式精確到小數(shù)點(diǎn)后第二位。 18.46cleas=0k=0m=1n=2forj=1to30k=m/ns=s+ky=nn=m+nm=yendfor?round（s,2）175編程求?。海?21,140］之間的弦數(shù)的個(gè)數(shù)（若某正整數(shù)的平方等于另兩個(gè)正整數(shù)平方之和，則稱該數(shù)為弦數(shù).例如:342+442=542,因此5是弦數(shù)8cleas=0q=121forn=121to140forj=1ton-1fori=1ton-1ifnA2=iA2+jA2andn>qq=ns=s+1endifendforendfornext?s176回文數(shù)是指正讀和反讀都一樣的正整數(shù)。例如3773等都是回文數(shù)。求出[1000,9999]以內(nèi)的所有回文數(shù)的個(gè)數(shù)。 90cleas=0forn=1001to9999a=int(n/1000)b=int(n/100)%10c=int(n/10)%10d=n%10ifa=dandb=cs=s+1endifendfor?s177有一輛以固定速度行駛在高速公路上的汽車，清晨司機(jī)看到里程表上從左到右的讀數(shù)和從右到左的讀數(shù)是相同的，這個(gè)數(shù)是95859,7小時(shí)后，里程表又出現(xiàn)了一個(gè)新的對(duì)稱數(shù)。設(shè)里程表為5位數(shù)字，問這個(gè)新的對(duì)稱數(shù)是什么？95959cleaforn=95860to99999a=int(n/10000)b=int(n/1000)%10c=int(n/10)%10d=n%10ifa=dandb=cexitendifendfor?n178利用格里高利公式：a/4=1-1/3+1/5-1Z7+1/9-1/11+...-1/99,求a的值。要求:按四舍五入的方式精確到小數(shù)點(diǎn)后第二位。 3.13cleadimef(50)f(1)=1-1/3f(2)=1/5-1/7f(3)=1/7-1/113=0forn=1to50f(n)=1/(4*n-3)-1/(4*n-1)a=a+f(n)endfor?round(4*a,2)179 已知正整數(shù)A,B(假定A<B),滿足A*B=5432,求S=A+B的最小值。153cleas=5432fora=1to5432forb=1to5432ifa*b=5432anda<bk=a+bifk<ss=kendifendifendforendfor?s180 編程求區(qū)間［500,2500］中按遞增順序第25個(gè)素?cái)?shù)。 659cleas=0q=0forn=500to2500m=0forj=2tosqrt(n)ifn%j=Om=1endifnextifm=0s=nq=q+1ifq>24exitendifendifendfor?s181已知：非等腰三角形最長(zhǎng)邊是60,其它兩邊的長(zhǎng)度都是正整數(shù)，且三邊之和能被3整除，試編程求取這類三角形的個(gè)數(shù)(注意：兩邊的長(zhǎng)度交換構(gòu)成的三角形算作同一個(gè)三角形，如：其它兩邊的長(zhǎng)度為30,40的三角形與長(zhǎng)度為40,30的三角形視為同一個(gè)三角形)。271cleas=0fora=2to59forb=1to58ifa>banda+b>60and(a+b+60)%3=0s=s+1endifendforendfor?s182 統(tǒng)計(jì)［100,10000］之間有多少個(gè)這樣的整數(shù),其各位數(shù)字之和能被7整除1408cleas=0q=0forn=100to10000docasecasen<1000a=int(n/100)b=int(n/10)%10c=n%10q=a+b+ccasen<10000d=int(n/1000)e=int(n/100)%10f=int(n/10)%10g=n%10q=d+e+f+gendcaseifq%7=0s=s+1endifendfor?s183^1/2+2/3+3/5+5/8+……的前1000項(xiàng)的和(注：該數(shù)列從第二項(xiàng)開始，其分子等于前一項(xiàng)的分母，而其分母等于前一項(xiàng)分子與分母之和)。要求：按四舍五入的方式精確到小數(shù)點(diǎn)后第二位。617.95cleas=0k=0m=1n=2forj=1to1000k=m/ns=s+ky=nn=m+nm=yendfor?round(s,2)184 S1=1,S2=1+3,S3=1+3+5,S4=1+3+5+7,SN=1+3+5+7+...+(2N-1),N為正整數(shù)。編程求S1+S2+S3+S4+…+SN的值<20000時(shí)的N的最大值。38cleadimef(10000)f⑴=1f(2)=3f(3)=5s=0q=0forn=1to10000f(n)=2*n-1s=s+f(n)q=q+sifq>20000exitendifendfor?n-1185試求口00,999］之間的所有素?cái)?shù)的和。 75067cleas=0forn=100to999m=0forj=2tosqrt(n)ifn%j=Om=1endifendforifm=0s=s+nendifendfor?s186把一張一元鈔票，換成一分、二分和五分硬幣，每種至少11枚，問有多少種方案？13cleas=0fora=11to100forb=11to50forc=11to20ifa+2*b+5*c=100s=s+1endifendforendfornext?s187求［100,999］之間所有素?cái)?shù)的個(gè)數(shù)。143cleas=0forn=100to999m=0forj=2tosqrt(n)ifn%j=Om=1endifendforifm=0s=s+1endifendfor?s188 求［1,999］之間能被3整除，且至少有一位數(shù)字是5的所有正整數(shù)的個(gè)數(shù)。91cleas=0forn=15to999step3docasecasen<100a=int(n/10)b=n%10ifa=5orb=5s=s+1endifcasen<999c=int(n/100)d=int(n/10)%10e=n%10ifc=5ord=5ore=5s=s+1endifendcaseendfor?s189若一自然數(shù)等于其所有真因子(不包括該數(shù)本身)之和，則稱該數(shù)為完數(shù).例如:6的真因子有1,2,3,且6=1+2+3，因此6為完數(shù)，求［3,1000］之間最大的完數(shù)。496cleas=0forn=3to1000m=0forj=1ton/2ifn%j=0m=m+jendifnextifm=ns=nendifendfor?s190 求［500,2500］之間按遞增順序的素?cái)?shù)中的第25大的素?cái)?shù)。 659cleas=0q=0forn=500to2500m=0forj=2tosqrt(n)ifn%j=Om=1endifnextifm=0q=q+1ifq>24exitendifendifendfor?s191某一正整數(shù)，進(jìn)行遞減，第一次減去該數(shù)的一半再減一，以后每次都減去前一次剩下的數(shù)后再減一，直到第十次減后，剩1。求該數(shù)。 1534cleadimef(10)f⑴=1f(2)=4f(3)=10s=0forn=4to10f(n)=2*f(n-1)+2s=f(n)endfor?s192有一輛以固定速度行駛在高速公路上的汽車，清晨司機(jī)看到里程表上從左到右的讀數(shù)和從右到左的讀數(shù)是相同的，這個(gè)數(shù)是95859,7小時(shí)后，里程表又出現(xiàn)了一個(gè)新的對(duì)稱數(shù)。設(shè)里程表為5位數(shù)字，問此車的時(shí)速是多少公里(是一整數(shù))？14.2857cleas=0forn=95860to99999a=int(n/10000)b=int(n/1000)%10c=int(n/10)%10d=n%10ifa=dandb=cand(n-95859)%7=0s=(n-95859)/7exitendifendfor?s193已知S1=1,S2=1+2,S3=1+2+3…,SN=1+2+...n,求S20至!JS80之間有多少個(gè)數(shù)能被17或35整除。12cleadimef(80)f(1)=1f(2)=3f(3)=6s=0k=0forn=4to80f(n)=f(n-1)+nk=k+1ifk>=16and(f(n)%17=0orf(n)%35=0)&&一定要記得給葉(n)%17=0orf(n)%35=0”加上括號(hào)s=s+1 &&因?yàn)槿~(n)%17=0orf(n)%35=0”與"k>=16”要同時(shí)滿足。endifendfor?s194已知S=2+(2+4)+(2+4+8)+(2+4+8+16)+…，求S>6000的S的最小值。8166cleas=0p=0forn=1to100k=2Anp=p+ks=s+pifs>6000exitendifendfor?s195分子分母為正整數(shù)，分子小于分母且分子分母無公因數(shù)的分?jǐn)?shù)稱為最簡(jiǎn)真分?jǐn)?shù)。對(duì)于分?jǐn)?shù)的分母取值范圍為［50,90］時(shí)的最簡(jiǎn)真分?jǐn)?shù)共有多少個(gè).773cleas=0forn=50to90form=1ton-1p=0forj=2tomifn%j=Oandm%j=0P=1exitendifendforifp=0s=s+1endifendfornext?s196求［351,432］之間所有既不能被3整除，又不能被8整除的整數(shù)的和。 18413cleas=0forn=351to432ifn%3!=0andn%8!=0s=s+nendifendfor?s197求［351,432］之間所有能被3整除，但不能被8整除的整數(shù)的個(gè)數(shù)。24cleas=0forn=351to432ifn%3=0andn%8!=0s=s+1endifendfor?s198 求［351,432］之間所有能被3整除，但不能被8整除的整數(shù)的和。9378cleas=0forn=351to432ifn%3=0andn%8!=0s=s+nendifendfor?s199求［351,432］之間所有不能被3整除,但能被8整除的整數(shù)的個(gè)數(shù)。7cleas=0forn=351to432ifn%3!=0andn%8=0s=s+1endifendfor?s200求［351,432］之間所有不能被3整除,但能被8整除的整數(shù)的和。2728cleas=0forn=351to432ifn%3!=0andn%8=0s=s+nendifendfor?s201 編程序求在5000以內(nèi)被17或者23整除的正整數(shù)數(shù)的個(gè)數(shù)。499cleas=0forn=1to5000ifn%17=0orn%23=0s=s+1endifendfor?s202編程序求出100以內(nèi)的能被3整除的數(shù)的平方和。 112761cleas=0forn=3to99step3s=s+nA2endfor?s203 已知一個(gè)數(shù)列的前3個(gè)數(shù)為0,0,1,以后每個(gè)數(shù)為前3個(gè)數(shù)的和，編程序求此數(shù)列的第36個(gè)數(shù)。334745777cleadimef(36)f(1)=0?(2)=0f(3)=1s=0forn=4to36f(n)=f(n-3)+f(n-2)+f(n-1)s=f(n)endfor?s2