国家计算机二级编程题

湖南省一级程序设计题库过程及答案1编程序求出1-200以内的能被7整除的数的平方和。377986cleas=0m=0fori=1to200ifi%7=0m=iA2s=s+mendifendfor?s2编程序求卜99的平方根的和并输出结果。(保留小数点两位)661.46cleas=0fori=lto99s=s+sqrt(i)endfor?round(s,2)3编程序求1〜55的平方根的和并输出结果。(保留小数点两位)275.43cleas=0fori=lto55s=s+sqrt(i)endfor?round(s,2)4 编程序统计1〜1000能被3整除的数的个数。 333cleas=0forn=lto1000ifn%3=0s=s+lendifendfor?s7编程序求出1到5000之间的能被5整除的前若干个偶数之和，当和大于500时程序退出。 550cleas=0forn=10to5000step10s=s+nifs>500exitendifendfor?s8 编程序求在3000以内被17或者23整除的正整数数的个数。299cleas=0forn=lto3000ifn%17=0orn%23=0s=s+lendifendfor?s9 序求在1000以内被17或者23整除的正整数数的个数。 99cleas=0forn=lto1000ifn%17=0orn%23=0s=s+lendifendfor?s10 编程序求在5000以内被17或者23整除的正整数数的个数。499cleaforn=lto5000ifn%17=0orn%23=0s=s+lendifendfor?s11 编程序求出1-100以内的能被3整除的数的平方和。 112761cleas=0forn=lto100ifn%3=0s=s+nA2endifendfor?s12 已知一个数列的前3个数为0,0,1,以后每个数为前3个数的和，编程序求此数列的第36个数。 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以内的能被9整除的数的平方和。40986cleas=0forn=lto100ifn%9=0s=s+nA2endifendfor?s14 编程序求出1-200以内的能被3整除的数的平方和。 882189cleas=0forn=lto200ifn%3=0s=s+nA2endifendfor?s15 编程序求出1-7000以内能被3或者7整除数的个数。3000cleas=0forn=lto7000ifn%3=0orn%7=0s=s+lendifendfor?s16序求出l・3000以内能被3或者5整除数的个数。 1400cleas=0forn=1to3000ifn%3=0orn%5=0s=s+lendifendfor?s17 编程序求出1-5000以内能被3或者7整除数的个数。2142cleas=0forn=1to5000ifn%3=0orn%7=0s=s+lendifendfor?s18 编程序求出1-6000以内能被3或者5整除数的个数。2800cleas=0forn=lto6000ifn%3=0orn%5=0s=s+lendifendfor?s19 编程序求出l~4000以内能被3或者11整除数的个数。1575cleas=0forn=lto4000ifn%3=0orn%ll=0s=s+1endifendfor?s20 编程序求出1-5000以内能被37整除的整数之和。 339660cleas=0forn=1to5000ifn%37=0s=s+nendifEndfor?s21 编程序求出1-6000以内能被23整除的整数之和。 780390cleas=0forn=lto6000ifn%23=0s=s+nendifendfor22 编程序求出1・3000以内能被33整除的整数之和。 135135cleas=0forn=lto3000ifn%33=0s=s+nendifendfor?s23 编程序求出1-5000以内能被15整除的整数之和。 834165cleas=0forn=lto5000ifn%15=0s=s+nendifendfor?s24编程序求出100到200之间同时满足除3余2和除5余3条件的数的个数。 6cleas=0forn=100to200ifn%3=2andn%5=3s=s+lendifendfor?s25 编程序求出1到300之间同时满足除3余2和除5余3条件的数的个数。20cleas=0forn=lto300ifn%3=2andn%5=3s=s+lendifendfor?s26 编程序求出100到500之间同时满足除3余2和除5余3条件的数的个数。 26cleas=0forn=100to500ifn%3=2andn%5=3s=s+lendifendfor?s27编程序求出1到400之间同时满足除3余2和除5余3条件的数的个数。27cleas=0forn=Ito400ifn%3=2andn%5=3s=s+lendifendfor?s28 编程序求出100到600之间同时满足除3余2和除5余3条件的数的个数。33cleas=0forn=100to600ifn%3=2andn%5=3s=s+lendifendfor?s29编程序求出1到500之间同时满足除3余2和除5余3条件的数的个数。33cleas=0forn=lto500ifn%3=2andn%5=3s=s+lendifendfor?s301编程序求出2+4+8+16+32+…这样的数之和。如果累加数大于500时，则程序终止并输出结果。 510cleas=0forn=lto100s=s+2Anifs>500exitendifendfor?s31编程序求出1~100所有整数的立方和并输出结果。 25502500cleas=0forn=1to100s=s+nA3endfor?s32编程序求出1~110所有整数的立方和并输出结果。 37271025cleas=0forn=1to110s=s+nA3endfor?s33编程序求出1~66所有整数的立方和并输出结果。 4888521cleas=0forn=1to66s=s+nA3endfor?s34编程序求出1~150所有整数的立方和并输出结果。 128255625cleas=0forn=1to150s=s+nA3endfor?s35编程序求出1~180所有整数的立方和并输出结果。 265364100cleas=0forn=1to180s=s+nA3endfor?s36编程序求出1~200所有整数的立方和并输出结果。 404010000cleas=0forn=1to200s=s+nA3endfor?s37编程序求出1~21。所有整数的立方和并输出结果。 490844025cleas=0forn=1to210s=s+nA3endfor?s38编程序求出S=1〜130所有整数的立方和并输出结果。 72505225cleas=0forn=1to130s=s+nA3endfor?s39编写程序，计算1000以内有多少个这样的数，该数既能被6整除又能被8整除。41cleas=0forn=1to1000ifn%6=0andn%8=0s=s+1endifendfor?s40编程序求1〜110所有整数的平方和并输出结果。 449735cleas=0forn=1to110s=s+nA2endfor?s41编程序求1〜120所有整数的平方和并输出结果。 583220cleas=0forn=1to120s=s+nA2endfor?s42编程序求1〜80所有整数的平方和并输出结果。 173880cleas=0forn=1to80s=s+nA2endfor?s43编程序求1〜150所有整数的平方和并输出结果。 1136275cleas=0forn=1to150s=s+nA2endfor?s44编程序求1~60所有整数的平方和并输出结果。 73810cleas=0forn=1to60s=s+nA2endfor?s45编程序求1~90所有整数的平方和并输出结果。247065cleas=0forn=1to90s=s+nA2endfor?s46编程序求1~108所有整数的平方和并输出结果。 425754cleas=0forn=1to108s=s+nA2endfor?s47编程序求1~145所有整数的平方和并输出结果。 1026745cleas=0forn=1to145s=s+nA2endfor?s48编程序求1〜250所有整数的平方和并输出结果。 5239625cleas=0forn=1to250s=s+nA2endfor?s49编程序求1~300所有整数的平方和并输出结果。 9045050cleas=0forn=1to300s=s+nA2endfor?s50编程序求出1到5000之间的能被7整除的前若干个数之和，当和大于1500时退出并输出结果。 1617cleas=0forn=1to5000ifn%7=0s=s+nendififs>1500exitendifendfor?s51编程序求出1到3000之间的能被3整除的前若干个数之和，当和大于600时退出并输出结果。630cleas=0forn=1to3000ifn%3=0s=s+nendififs>600exitendifendfor?s52编程序求出1到2000之间的能被9整除的前若干个数之和，当和大于500时退出并输出结果。594cleas=0forn=1to2000ifn%9=0s=s+nendififs>500exitendifendfor?s53编程序求出1到6000之间的能被5整除的前若干个偶数之和，当和大于650时退出并输出结果。 660cleas=0forn=1to6000ifn%5=0andn%2=0s=s+nendififs>650exitendifendfor?s54编程序求出1到7000之间的能被5整除的前若干个偶数之和，当和大于500时退出并输出结果。 550cleas=0forn=1to7000ifn%5=0andn%2=0s=s+nendififs>500exitendifendfor?s55编程序求出1到4000之间的能被5整除的前若干个偶数之和，当和大于400时退出并输出结果。 450cleas=0forn=1to4000ifn%5=0andn%2=0s=s+nendififs>400exitendifendfor?s56编程序求出1到8000之间的能被5整除的前若干个偶数之和，当和大于750时退出并输出结果。780cleas=0forn=1to8000ifn%5=0andn%2=0s=s+nendififs>750exitendifendfor?s57编程序统计1〜200能被3整除的个数。66cleas=0forn=1to200ifn%3=0s=s+1endifendfor?s58编程序统计1〜300能被3整除的个数。100cleas=0forn=1to300ifn%3=0s=s+1endifendfor?s59编程序统计200〜400能被3整除的个数。67cleas=0forn=200to400ifn%3=0s=s+1endifendfor?s60编程序统计150〜300能被3整除的个数。 51cleas=0forn=150to300ifn%3=0s=s+1endifendfor?s61编程序统计150〜400能被3整除的个数。 84cleas=0forn=150to400ifn%3=0s=s+1endifendfor?s62编程序统计100~500能被3整除的个数。 133cleas=0forn=100to500ifn%3=0s=s+1endifendfor?s63编程序统计200〜600能被3整除的个数。 134cleas=0forn=200to600ifn%3=0s=s+1endifendfor?s64编程序统计200~300能被3整除的个数。 34cleas=0forn=200to300ifn%3=0s=s+1endifendfor?s65编程序统计300~500能被3整除的个数。67cleas=0forn=300to500ifn%3=0s=s+1endifendfor?s66编程序求1~65的平方根的和并输出结果。（保留小数点两位）353.19cleas=0forn=1to65s=s+sqrt(n)endfor?round(s,2)67编程序求1~66的平方根的和并输出结果。(保留小数点两位)361.32cleas=0forn=1to66s=s+sqrt(n)endfor?round(s,2)68编程序求1〜85的平方根和并输出结果。(保留小数点两位) 526.85cleas=0forn=1to85s=s+sqrt(n)endfor?round(s,2)69编程序求1~95的平方根的和并输出结果。(保留小数点两位)621.97cleas=0forn=1to95s=s+sqrt(n)endfor?round(s,2)70编程序求1~125的平方根的和并输出结果。(保留小数点两位)937.08cleas=0forn=1to125s=s+sqrt(n)endfor?round(s,2)71编程序求1〜135的平方根的和并输出结果。(保留小数点两位)1051.31cleas=0forn=1to135s=s+sqrt(n)endfor?round(s,2)72编程序求1~155的平方根的和并输出结果。(保留小数点两位)1292.51cleas=0forn=1to155s=s+sqrt(n)endfor?round(s,2)73编程序求1~115的平方根的和并输出结果。(保留小数点两位)827.32cleas=0forn=1to115s=s+sqrt(n)endfor?round(s,2)74编程序求1〜78的平方根的和并输出结果。(保留小数点两位) 463.46cleas=0forn=1to78s=s+sqrt(n)endfor?round(s,2)75已知一个数列的前3个数为0,1,2,以后每个数为前3个数的和，编程序求此数列的第30个数。 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已知一个数列的前3个数为0,1,1,以后每个数为前3个数的和，编程序求此数列的第20个数。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已知一个数列的前3个数为0,1,2,以后每个数为前3个数的和，编程序求此数列的第25个数。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已知一个数列的前3个数为1,2,3,以后每个数为前3个数的和，编程序求此数列的第20个数。 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已知一个数列的前3个数为0,1,2,以后每个数为前3个数的和，编程序求此数列的第35个数。 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已知一个数列的前3个数为1,2,3,以后每个数为前3个数的和，编程序求此数列的第35个数。 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已知一个数列的前3个数为3,4,5,以后每个数为前3个数的和，编程序求此数列的第28个数。 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已知一个数列的前3个数为3,4,5,以后每个数为前3个数的和，编程序求此数列的第33个数。 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已知一个数列的前3个数为3,4,5,以后每个数为前3个数的和，编程序求此数列的第26个数。 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+…这样的数之和。如果累加数大于1500时，则程序终止并输出结果。2046cleas=0forn=1to100q=2Ans=s+qifs>1500exitendifendfor?s85编程序求2+4+8+16+32+…这样的数之和。如果累加数大于980时，则程序终止并输出结果。 1022cleas=0forn=1to100q=2Ans=s+qifs>980exitendifendfor?s86编程序求2+4+8+16+32+…这样的数之和。如果累加数大于3000时，则程序终止并输出结果。 4094cleas=0forn=1to100q=2Ans=s+qifs>3000exitendifendfor?s87编程序求2+4+8+16+32+...这样的数之和。如果累加数大于5000时，则程序终止并输出结果。 8190cleas=0forn=1to100q=2Ans=s+qifs>5000exitendifendfor?s88编程序求1+3+5+7+9+…这样的数之和。如果累加数大于750时，则程序终止并输出结果。784cleas=0forn=1to800step2s=s+nifs>750exitendifendfor?s89编程序求1+3+5+7+9+…这样的数之和。如果累加数大于1200时，则程序终止并输出结果。1225cleas=0forn=1to800step2s=s+nifs>1200exitendifendfor?s90编程序求2+4+8+16+32+…这样的数之和。如果累加数大于9000时，则程序终止并输出结果。 16382cleas=0forn=1to100q=2Ans=s+qifs>9000exitendifendfor?s91编程序求1+3+5+7+9+…这样的数之和。如果累加数大于1300时，则程序终止并输出结果。 1369cleas=0forn=1to800step2s=s+nifs>1300exitendifendfor?s92编程序求1+3+5+7+9+…这样的数之和。如果累加数大于900时，则程序终止并输出结果。961cleas=0forn=1to800step2s=s+nifs>900exitendifendfor?s93编程序求1+3+5+7+9+…这样的数之和。如果累加数大于1000时，则程序终止并输出结果。 1024cleas=0forn=1to800step2s=s+nifs>1000exitendifendfor?s94编程序求1〜100能被7整除的个数。 14cleas=0forn=1to100ifn%7=0s=s+1endifendfor?s95编程序求1〜600能被11整除的个数。54cleas=0forn=1to600ifn%11=0s=s+1endifendfor?s96编程序求1〜1000能被15整除的个数。66cleas=0forn=1to1000ifn%15=0s=s+1endifendfor?s97编程序求1〜800能被5整除的个数。 160cleas=0forn=1to800ifn%5=0s=s+1endifendfor?s98编写程序，求［1,1000］既能被6整除又能被7整除的数的个数。2cleas=0forn=1to100ifn%6=0andn%7=0s=s+1endifendfor?s99编写程序，求［1,500］既能被3整除又能被5整除的数的个数。33cleas=0forn=1to500ifn%3=0andn%5=0s=s+1endifendfor?s100编写程序，求［1，500］既能被6整除又能被7整除的数之和。2772cleas=0forn=1to500ifn%6=0andn%7=0s=s+nendifendfor?s101 已知24有8个正整数因子(即：1,2,3,4,6,8,12,24),而24正好被其因子个数8整除。求［1,100］之间第10个能被其因子数目整除的正整数。56cleas=0q=0forn=1to100m=0forj=1tonifn%j=Om=m+1endifnextifn%m=0s=s+1q=nifs>9&&当它大于9时，q已经是第十个数了！exitendifendifendfor?q102求［666,777］范围内素数的个数。 16cleas=0forn=666to777q=0forj=2tosqrt(n)ifn%j=Oq=1endifnextifq=0s=s+1endifendfor?s103求［351,432］之间所有既不能被3整除，又不能被8整除的正整数的个数。47cleas=0forn=351to432ifn%3!=0andn%8!=0s=s+1endifendfor?s104 求［444,666］范围内最大的素数是多少？ 661cleas=0forn=444to666q=0forj=2tosqrt(n)ifn%j=Oq=1endifnextifq=0s=nendifendfor?s105 有一个分数序列:2/1,3/2,5/3,8/5,13/8,21/13….(注:该数列从第二项开始，其分子是前一项的分子与分母的和，而其分母是前一项的分子)，求出这个序列前24项的和。要求：按四舍五入的方式精确到小数点后第二位。 39.13cleas=0k=0m=2n=1forj=1to24k=m/ns=s+ky=mm=m+nn=yendfor?round(s,2)106 已知24有8个正整数因子(即：1,2,3,4,6,8,12,24),而24正好被其因子个数8整除。问［100,300］之间有多少个能被其因子数目整除的数。 19cleas=0q=0forn=100to300m=0forj=1tonifn%j=Om=m+1endifnextifn%m=Os=s+1endifendfor?s107求［1,5000］之间能同时被3和7整除的数的个数。 238cleas=0forn=1to5000ifn%3=0andn%7=0s=s+1endifendfor?s108 设某国今年的国民生产总值为45600亿元,若今后每年以8%的增长率增长，计算多少年后能实现国民生产总值翻两番？ 19 2008cleas=0dimef(1000)f(1)=45600f(2)=49248f(3)=53187.84q=2 &&从第二年开始计算年份，所以f(1)不算。forn=4to1000f(n)=f(n-1)*1.08s=f(n)q=q+1ifs>=182400exitendifendfor?q109 求［1,5000］之间能被3或7整除的数的个数。 2142cleas=0forn=1to5000ifn%3=0orn%7=0s=s+1endifendfor?s110 已知24有8个因子(即：1,2,3,4,6,8,12,24),而24正好被8整除。求［1,100］之间第二大能被其因子数目整除的数。 88cleas=0q=0forn=100to1step-1m=0forj=1tonifn%j=Om=m+1endifnextifn%m=0s=s+1q=nifs>1&&当它大于1时，q已经是第2个数了！exitendifendifendfor?q111若某整数平方等于某两个正整数平方之和的正整数称为弦数。例如：由于3A2+4八2=5八2,贝屿为弦数，求［100,200］之间最大的弦数。200cleas=100q=0forn=100to200forj=1ton-1fork=1ton-1ifkA2+jA2=nA2q=nifq>ss=qendifendifendforendforendfor?s112若某整数N的所有因子之和等于N的倍数，则N称为多因子完备数，如数28,其因子之和1+2+4+7+14+28=56=2*28,28是多因子完备数。求［1,500］之间有多少个多因子完备数。5cleas=0forn=1to500m=0forj=1tonifn%j=0m=m+jendifnextifm%n=0s=s+1endifendfor?s113 若某整数N的所有因子之和等于N的倍数，则N称为多因子完备数，如数28,其因子之和1+2+4+7+14+28=56=2*28,28是多因子完备数。求［1,200］之间有多少个多因子完备数。4cleas=0forn=1to200m=0forj=1tonifn%j=0m=m+jendifnextifm%n=0s=s+1endifendfor?s114 设某国今年的国民生产总值为45600亿元,若今后每年以9%的增长率增长，计算多少年后能实现国民生产总值翻一番？9cleas=0dimef(1000)f(1)=45600f(2)=45600*1.09f(3)=(45600*1.09)*1.09q=2 &&从第二年开始计算年份，所以f(1)不算。forn=4to1000*n)=f(n.1)T.O8s=f(n)q=q+iifs>=45600*2exitendifendfor?q115 已知24有8个正整数因子(即4,6,8,12,24),而24正好被其因子个数8整除。求［100,300］之间能被其因子数目整除的数中最大的数。 296cleas=0q=0forn=100to300m=0forj=1tonifn%j=Om=m+1endifnextifn%m=0s=s+1q=nendifendfor?q116 有一个三位数满足下列条件：(1)此三位数的三位数字各不相同；(2)此三位数等于它的各位数字的立方和。试求这种三位数共有多少个？ 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之值最大的三个正整数X,Y,Z,求X+Y+Z之值.71cleas=0forx=1to41fory=1to41forz=1to41ifxA2+yA2+zA2=41A2k=x+y+zifk>ss=kendifendifendforendforendfor?s118 求［2,500］之间的所有素数的和。 21536cleas=0forn=2to500q=0forj=2tosqrt(n)ifn%j=Oq=iendifnextifq=0s=s+nendifendfor?s119 求［3・1000］之间最大的五个素数之和。 4919cleas=0q=0forn=1000to3step-1m=0forj=2tosqrt(n)ifn%j=Om=1endifnextifm=0s=s+nq=q+1ifq>4exitendifendifendfor?s120 有一个分数序列:2/1,3/2,5/3,8/5,13/8,21/13.…（即：该数列从第二项开始，其分子是前一项的分子与分母之和，而其分母是前一项的分子），求出这个序列前56项的和。要求：按四舍五入的方式精确到小数点后第三位。 90.909cleas=0k=0m=2n=1forj=1to56k=m/ns=s+ky=mm=m+nn=yendfor?round（s,3）121 已知24有8个因子（即：123,4,6,8,12,24）,而24正好被8整除。求［100,300］之间所有能被其因子数目整除的数之和。 3769cleas=0forn=100to300m=0forj=1tonifn%j=Om=m+1endifnextifn%m=0s=s+nendifendfor?s122 问［100,200］之间有奇数个不同因子的整数共有多少个？ 5cleas=0forn=100to200m=0forj=1tonifn%j=Om=m+1endifnextifm%2=1s=s+1endifendfor?s123水仙花数是一个三位正整数，它等于它的各位数字的立方之和.例如:153=1八3+5八3+3八3,所以153是水仙花数.试求所有的水仙花数之积。8547940170cleas=1 &&小蔡提醒：特别注意若s=0,则s乘任何数都会为0,所以此时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］之间最小的一个有奇数个不同因子的整数。 225cleas=0forn=200to300m=0forj=1tonifn%j=Om=m+1endifnextifm%2=1s=nexitendifendfor?s126 一个数出现在该数的平方数的右边，称这个数为，，同构数九例如，5出现在平方数25的右边，25出现在平方数625的右边，则5、25都是“同构数”。找出1到1000之间的所有“同构数”的个数。 6cleas=0forn=2to1000docasecasen<10p=nA2%10casen<100p=nA2%100casen<1000p=nA2%1000endcaseifp=n??ns=s+1endifendfor?s127 求［300,400］之间最小的一个有奇数个不同因子的整数。 324cleas=0forn=300to400m=0forj=1tonifn%j=Om=m+1endifnextifm%2=1s=nexitendifendfor?s128 求［200,300］之间第二大有奇数个不同因子的整数。256cleas=0q=0forn=300to200step-1m=0forj=1tonifn%j=0m=m+1endifnextifm%2=1s=nq=q+1ifq>1exitendifendifendfor?s129 一个14*14方阵A(iJ),其每个元素的值为该元素下标的立方和，求出该矩阵所有元素的累加和(注：i,j从1到14). 308700cleas=0forn=1to14form=1to14s=s+nA3+mA3endfornext?s130 求［100,200］之间最大的有奇数个不同因子的整数。196cleas=0forn=100to200m=0forj=1tonifn%j=Om=m+1endifnextifm%2=1s=nendifendfor?s131一个数如果恰好等于它的所有真因子之和，这个数就称为“完数”。例如,6的真因子为1,2,3,而6=1+2+3,因此，6是“完数”。求1000以内的所有完数之和。530cleas=0forn=1to1000m=0forj=1ton/2ifn%j=0m=m+jendifnextifm=ns=s+nendifendfor?s132 一个数如果恰好等于它的所有真因子之和，这个数就称为“完数”。例如，6的真因子为1,2,3,而6=1+2+3,因此,6是“完数”。求［8100,8200］之间的所有完数。8128cleaforn=8100to8200m=0forj=1ton/2ifn%j=Om=m+jendifnextifm=n??nendifendfor133 一个数如果恰好等于它的所有真因子之和，这个数就称为“完数”。例如,6的真因子为1,2,3,而6T+2+3,因此，6是“完数”。求［1,1000］之间的最大完数。496cleas=0forn=1to1000m=0forj=1ton/2ifn%j=Om=m+jendifnextifm=ns=nendifendfor?s134一个数如果恰好等于它的所有真因子之和，这个数就称为“完数”。例如，6的真因子为1,2,3,而6=1+2+3,因此，6是“完数”。求［1,1000］之间的第二大完数。28cleas=0q=0forn=1000to1step-1m=0forj=1ton/2ifn%j=Om=m+jendifnextifm=nq=q+1s=nifq>1exitendifendifendfor?s135 求数学式1・1/2+1/3・1/4+1/5・1/6+…+1/99-1/100的值(按四舍五入方式精确到小数点后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］之间第二大有奇数个不同因子的整数。169cleas=0q=0forn=200to100step-1m=0forj=1tonifn%j=0m=m+1endifnextifm%2=1s=nq=q+iifq>1exitendifendifendfor?s137 求正整数［1,500］中，能同时满足用3除余2,用5除余3,用7除余2的所有正整数的个数。5cleas=0forn=1to500ifn%3=2andn%5=3andn%7=3s=s+1endifendfor?s138 某自然数平方的末几位与该数相同时，称此数为自同构数，例如25A2=625,则称25为自同构数，求出［10,100000］之间最大的自同构数。 90625cleas=0forn=10to100000docasecasen<100p=nA2%100casen<1000p=nA2%1000casen<10000p=nA2%10000casen<100000p=nA2%100000endcaseifp=ns=nendifendfor?s139设某四位数的千位数字与十位数字的和等于百位数字与个位数字的积，例如，对于四位数：9512,9+1=5*2,试问所有这样的四位数之和是多少？1078289cleas=0forn=1000to9999a=int(n/1000)b=int(n/100)%10c=int(n/10)%10d=n%10ifa+c=b*ds=s+nendifendfor?s140 求符合下列条件的四位完全平方数(某个数的平方数为完全平方数)，它的千位数字与十位数字之和等于百位数字与个位数字之积，例如，3136=56^2,且3+3=1*6故3136是所求的四位完全平方数.求其中最大的一个数。 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］之间的所有完备数之和。各真因子之和(不包括自身)等于其本身的正整数称为完数。例如：6=1+2+3,6是完数。 524cleas=0forn=10to1000m=0forj=1ton/2ifn%j=Om=m+jendifnextifm=ns=s+nendifendfor?s142求满足A*B=718368,使A+B最小，且A,B(A<B)为正整数的A的值。672cleas=100000fora=1to10000forb=1to10000ifa*b=718368anda<bk=a+bifk<ss=kj=aendifendifendforendfor?j143 求［200,300］之间最大的有奇数个不同因子的整数。289cleas=0forn=200to300m=0forj=1tonifn%j=0m=m+1endifnextifm%2=1s=nendifendfor?s144 求［3333,6666］之间所有能被5整除同时能被7整除的数，问共有多少个这样的数？95cleas=0forn=3333to6666ifn%5=0andn%7=0s=s+1endifendfor?s145设某四位数的各位数字的平方和为100,且该数能被3整除。求共有多少个这样的四位数。 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若一个四位正整数是另一个正整数的平方，且各位数字的和是一个平方数，则称该四位正整数是“四位双平方数”。例如：由于7396=86八2,且7+3+9+6=25=5A2,则称7396是“四位双平方数”。求所有“四位双平方数”中最小的一个“四位双平方数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计算y=1+2/3+3/5+4/7+...+n/(2*n-1)(n=50),要求：按四舍五入的方式精确到小数点后第二位。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若两个连续的自然数的乘积减1后是素数，则称此两个连续自然数为友数对,该素数称为友素数。例如，由于8*9-1=71,因此，8与9是友数对，71是友素数。求［100,200］之间的所有友素数之和。 983696cleas=0forn=100to199q=n*(n+1)-1w=0forj=2tosqrt(q)ifq%j=Ow=1endifnextifw=0s=s+qendifendfor?s149求数列：2/1,3/2,5/3,8/5,13/8,21/13,……前50项之和(注:此数列从第二项开始，其分子是前一项的分子与分母之和，其分母是前一项的分子)。(按四舍五入的方式精确到小数点后第二位) 81.20cleas=0k=0m=2n=1forj=1to50k=m/ns=s+ky=mm=m+nn=yendfor?round(s,2)150求［1,1000］之间能被3整除，且至少有一位上的数是5的所有数之和。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当m的值为50时，计算下列公式之值：t=1-1/(2*2)-1/(3*3)-...-1/(m*m)要求：按四舍五入的方式精确到小数点后第四位。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若某整数N的所有因子之和等于N的倍数，则N称为多因子完备数，如数28,其因子之和1+2+4+7+14+28=56=2*28,28是多因子完备数。求［1,500］之间最大的多因子完备数。 496cleas=0forn=1to500m=0forj=1tonifn%j=Om=m+jendifnextifm%n=0s=nendifendfor?s153求出［10,1000］以内同时满足除以7余5,除以5余3,除以3余1的所有整数的个数。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))(按四舍五入的方式精确到小数点后第三位)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求级数1/(1*2)+1/(2*3)+.・…+1/(N*(N+1))的和的近似值，直到级数中有一项的值小于1E—4为止.要求：按四舍五入的方式精确到小数点后第二位。0.99cleas=0forn=1to100000k=1/(n*(n+1)) &&一定要记得分母是多项相乘时，分母要加括号！！s=s+kifk<1/10000exitendifendfor?round(s,2)156 求1000以内，同时能被3和7整除的所有自然数之和的平方根。(按四舍五入的方式精确到小数点后第二位)。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项之和。要求：按四舍五入的方式精确到小数点后第二位。 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 编制一个程序求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,编制一个程序求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当n=100时，计算输出下列多项式的值S=(1-1/2)+(1/3-1/4)+……+(1/(2*n-1)-1/(2*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当n的值为25时，计算下列公式的值s=1+1/1!+1/2!+1/3!+...+1/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的初值在第一个for的前面，绝对不要进入第：个for循环endfor?round(s,4)163 当n的值为50时，求S的值。S=1+1/(1+2)+1/(1+2+3)+…+1/(1+2+3+…+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当m的值为50时，计算下列公式之值：1=1+1/(2八2)+1/(3八2)+-+1/011八2)(按四舍五入的方式精确到小数点后第四位)。 1.6251cleadimef(50)f⑴=1f(2)=4f(3)=9s=0forn=1to50f(n)=1/nA2s=s+f(n)endfor?round(s,4)165当m的值为50时，计算下列公式的值：T=1-1/2-1/3-1/4-…-1/m要求：按四舍五入的方式精确到小数点后第四位。-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］之间的十位数字为7的素数的个数。 22cleas=0forn=500to1999m=0q=int(n/10)%10forj=2tosqrt(n)ifn%j=0m=1endifnextifm=0andq=7s=s+1endifendfor?s167 求［351,432］之间所有既不能被3整除，又不能被8整除的整数的和。18413cleas=0forn=351to432ifn%3!=0andn%8!=0s=s+nendifendfor?s168 求从6开始的前6个同构数(若某数与其本身的平方数低位部分相等，则称之为同构数，如6,其平方数为36)的和。 10484cleas=0q=0forn=6to9999docasecasen<10p=nA2%10casen<100p=nA2%100casen<1000p=nA2%1000casen<10000p=nA2%10000endcaseifn=pq=q+is=s+nifq>6exitendifendifnext?s169 若某整数N的所有因子之和等于N的倍数，则N称为多因子完备数，如数28淇因子之和1+2+4+7+14+28=56=2*28,28是多因子完备数。求［1,500］之间按从小到大的顺序排列的第三个多因子完备数。28cleas=0forn=1to500m=0forj=1tonifn%j=Om=m+jendifnextifm%n=0s=s+1ifs>2exitendifendifendfor?n170 求000,10000］中其各位数字之和能被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?s171 若(x3y,z)满足方程：'八2+丫八2M八2=55八2(注：要求x>y>z),则(x,y,z)称为方程的一个解。试求方程的整数解(包括负整数解)的个数。62cleas=0forx=-55to55fory=-55to55forz=-55to55ifxA2+yA2+zA2=55A2andx>yandy>zs=s+1endifendforendfornext?s172一只猴子一天从山上摘来一袋桃子，从这天开始，它每天都要把袋中的桃子平分为二堆，吃掉其中的一堆，然后再从剩下的桃中拿出一个解谗，等到第10天，它发现袋中只有一只桃可吃啦，问猴子总共摘了多少桃。1534cleadimef(10)f(1)=1f(2)=4f(3)=10s=0forn=4to10f(n)=2*f(n-1)+2s=f(n)endfor?s173编程求取：从6开始的前6个同构数的和(若某数与其本身的平方数低位部分相等，则称之同构数，如：6,其平方数为36,贝帕为一个同构数)。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项的和（注：该级数从第二项开始，其分子是前一项的分母，其分母是前一项的分子与分母的和）。要求：按四舍五入的方式精确到小数点后第二位。 18.46cleas=0k=0m=1n=2forj=1to30k=m/ns=s+ky=nn=m+nm=yendfor?round（s,2）175编程求取：［121,140］之间的弦数的个数（若某正整数的平方等于另两个正整数平方之和，则称该数为弦数.例如:342+442=542,因此5是弦数8cleas=0q=121forn=121to140forj=1ton-1fori=1ton-1ifnA2=iA2+jA2andn>qq=ns=s+1endifendforendfornext?s176回文数是指正读和反读都一样的正整数。例如3773等都是回文数。求出[1000,9999]以内的所有回文数的个数。 90cleas=0forn=1001to9999a=int(n/1000)b=int(n/100)%10c=int(n/10)%10d=n%10ifa=dandb=cs=s+1endifendfor?s177有一辆以固定速度行驶在高速公路上的汽车，清晨司机看到里程表上从左到右的读数和从右到左的读数是相同的，这个数是95859,7小时后，里程表又出现了一个新的对称数。设里程表为5位数字，问这个新的对称数是什么？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的值。要求:按四舍五入的方式精确到小数点后第二位。 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 已知正整数A,B(假定A<B),满足A*B=5432,求S=A+B的最小值。153cleas=5432fora=1to5432forb=1to5432ifa*b=5432anda<bk=a+bifk<ss=kendifendifendforendfor?s180 编程求区间［500,2500］中按递增顺序第25个素数。 659cleas=0q=0forn=500to2500m=0forj=2tosqrt(n)ifn%j=Om=1endifnextifm=0s=nq=q+1ifq>24exitendifendifendfor?s181已知：非等腰三角形最长边是60,其它两边的长度都是正整数，且三边之和能被3整除，试编程求取这类三角形的个数(注意：两边的长度交换构成的三角形算作同一个三角形，如：其它两边的长度为30,40的三角形与长度为40,30的三角形视为同一个三角形)。271cleas=0fora=2to59forb=1to58ifa>banda+b>60and(a+b+60)%3=0s=s+1endifendforendfor?s182 统计［100,10000］之间有多少个这样的整数,其各位数字之和能被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项的和(注：该数列从第二项开始，其分子等于前一项的分母，而其分母等于前一项分子与分母之和)。要求：按四舍五入的方式精确到小数点后第二位。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为正整数。编程求S1+S2+S3+S4+…+SN的值<20000时的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］之间的所有素数的和。 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］之间所有素数的个数。143cleas=0forn=100to999m=0forj=2tosqrt(n)ifn%j=Om=1endifendforifm=0s=s+1endifendfor?s188 求［1,999］之间能被3整除，且至少有一位数字是5的所有正整数的个数。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若一自然数等于其所有真因子(不包括该数本身)之和，则称该数为完数.例如:6的真因子有1,2,3,且6=1+2+3，因此6为完数，求［3,1000］之间最大的完数。496cleas=0forn=3to1000m=0forj=1ton/2ifn%j=0m=m+jendifnextifm=ns=nendifendfor?s190 求［500,2500］之间按递增顺序的素数中的第25大的素数。 659cleas=0q=0forn=500to2500m=0forj=2tosqrt(n)ifn%j=Om=1endifnextifm=0q=q+1ifq>24exitendifendifendfor?s191某一正整数，进行递减，第一次减去该数的一半再减一，以后每次都减去前一次剩下的数后再减一，直到第十次减后，剩1。求该数。 1534cleadimef(10)f⑴=1f(2)=4f(3)=10s=0forn=4to10f(n)=2*f(n-1)+2s=f(n)endfor?s192有一辆以固定速度行驶在高速公路上的汽车，清晨司机看到里程表上从左到右的读数和从右到左的读数是相同的，这个数是95859,7小时后，里程表又出现了一个新的对称数。设里程表为5位数字，问此车的时速是多少公里(是一整数)？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之间有多少个数能被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”加上括号s=s+1 &&因为叶(n)%17=0orf(n)%35=0”与"k>=16”要同时满足。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分子分母为正整数，分子小于分母且分子分母无公因数的分数称为最简真分数。对于分数的分母取值范围为［50,90］时的最简真分数共有多少个.773cleas=0forn=50to90form=1ton-1p=0forj=2tomifn%j=Oandm%j=0P=1exitendifendforifp=0s=s+1endifendfornext?s196求［351,432］之间所有既不能被3整除，又不能被8整除的整数的和。 18413cleas=0forn=351to432ifn%3!=0andn%8!=0s=s+nendifendfor?s197求［351,432］之间所有能被3整除，但不能被8整除的整数的个数。24cleas=0forn=351to432ifn%3=0andn%8!=0s=s+1endifendfor?s198 求［351,432］之间所有能被3整除，但不能被8整除的整数的和。9378cleas=0forn=351to432ifn%3=0andn%8!=0s=s+nendifendfor?s199求［351,432］之间所有不能被3整除,但能被8整除的整数的个数。7cleas=0forn=351to432ifn%3!=0andn%8=0s=s+1endifendfor?s200求［351,432］之间所有不能被3整除,但能被8整除的整数的和。2728cleas=0forn=351to432ifn%3!=0andn%8=0s=s+nendifendfor?s201 编程序求在5000以内被17或者23整除的正整数数的个数。499cleas=0forn=1to5000ifn%17=0orn%23=0s=s+1endifendfor?s202编程序求出100以内的能被3整除的数的平方和。 112761cleas=0forn=3to99step3s=s+nA2endfor?s203 已知一个数列的前3个数为0,0,1,以后每个数为前3个数的和，编程序求此数列的第36个数。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