编程答案.docx

编程答案.docx

《编程答案.docx》由会员分享，可在线阅读，更多相关《编程答案.docx（133页珍藏版）》请在冰豆网上搜索。

编程答案

1

"水仙花数"是指这样的数，其各位数字的立方和等于该数本身。

编写程序求100至999的范围内有多少个水仙花数。

4

2

（x,y,z）满足方程：

x^2+y^2+z^2=55^2（注：

要求x>y>z）,则（x,y,z）称为方程的一个解。

试求方程的整数解（包括负整数解）的个数。

62

3

“水仙花数”是指这样的数，其各位数字的立方和等于该数本身。

编写程序求100至400的范围内有多少个水仙花数。

3

4

50元的整币兑换成5元、2元和1元币值（三种币值均有、缺少一种或两种都计算在内）的方法有多少种。

146

5

A,B,C是三个小于或等于100正整数，当满足1/A^2+1/B^2=1/C^2关系时，称为倒勾股数。

求130B>C的倒勾股数有多少组。

1

6

爱因斯坦走台阶:

有一台阶,如果每次走两阶,最后剩一阶;如果每次走三阶,最后剩两阶;如果每次走四阶,最后剩三阶;如果每次走五阶,最后剩四阶;如果每次走六阶,最后剩五阶;如果每次走七阶,刚好走完.求满足上述条件的最小台阶数是多少？

119

7

编程求取：

[121,140]之间的弦数的个数（若某正整数的平方等于另两个正整数平方之和，则称该数为弦数.例如:

3^2+4^2=5^2,因此5是弦数）。

8

8

编写程序，计算1000以内有多少个这样的数，其十位数为6且能被8整除。

15

9

编写程序，计算在[0，60]的范围内有多少个数，其每位数的乘积大于每位数的和。

31

10

编写程序，求1到5000之间的能被5整除的前若干个偶数之和，当和值大于500时退出，输出该和值。

550

11

编写程序，求出1~7000以内能被3或者7整除的数的个数。

3000

12

编写程序，求出100到500之间同时满足除3余2和除5余3条件的数的个数。

26

13

编写程序，求出3到100之间的所有非偶数非素数的数之和。

1441

14

编写程序，求共有几组i,j,k符合算式ijk+kji=1534,其中i,j,k是[0,9]之间的一个整数且i

2

15

编写程序，求满足下列条件的所有四位数ABCD的个数，该四位数是11的倍数，且A=B+C，即第2位数加上第3位数等于第1位数。

49

16

编写程序，求三位数的偶数中，所有各位数字之和是15的倍数的数的个数。

34

17

编写程序，求四位数的奇数中，所有各位数字之积（且不为0）是125的倍数的数的和。

161095

18

编写程序，求一正整数等差数列的前六项的和，该数列前四项之和是26，四项之积是880。

57

19

编写程序，求在5000以内能被17或者23整除的正整数的个数。

499

20

编写程序，求在四位数的偶数中，所有各位数字之和是30的倍数的数的和。

288840

21

编写程序，统计1000~9999之间的所有满足以下条件的四位数的个数。

该数是一个完全平方数，且第1、2位数字之和为12，第3、4位数字之积为24。

1

22

编写程序，已知：

S=1+3+5+7+9+…，求S不大于9000的最大值。

8836

23

编写程序，已知：

S=2+4+8+16+32+…，求S不大于1500的最大值。

1022

24

除1和它本身外，不能被其它整数整除的正整数称为素数（注：

1不是素数，2是素数）。

若两素数之差为2，则称两素数为双胞胎数，问[31,601]之间有多少对双胞胎数。

22

25

当m的值为50时，计算下列公式的值：

T=1-1/2-1/3-1/4-…-1/m

要求：

按四舍五入的方式精确到小数点后第四位。

-2.4992

26

当n的值为25时，计算下列公式的值:

s=1+1/1!

+1/2!

+1/3!

+…+1/n!

要求：

按四舍五入的方式精确到小数点后第四位。

2.7183

27

斐波那契数列的前二项是1，1，其后每一项都是前面两项之和，求：

10000000以内最大的斐波那契数？

9227465

28

计算y=1+2/3+3/5+4/7+…+n/（2*n-1）的值,n=50,要求：

按四舍五入的方式精确到小数点后第二位。

26.47

29

计算Y=X/1!

-X^3/3!

+X^5/5!

-X^7/7!

+……前20项的值（已知：

X=2）。

要求：

按四舍五入的方式精确到小数点后第二位。

0.91

30

梅森尼数是指能使2^n-1为素数的数n，求[2，21]范围内有多少个梅森尼数？

最大

719

31

某些分数的分子和分母都是二位正整数的真分数具有下列特点：

如果将该分数的分子的两位数字相加作分子，而将该分数的分母的两位数字相加作分母，得到的新分子跟原分子相等。

例如，63/84=（6+3）/（8+4）。

试求所有具有这种特点的真分子（非约简真分数）的分子与分母之和的和。

10134

32

某一正整数，进行递减，每次将该数减半后再减一，当对该数进行第10次减半时发现该数只剩下1不能再减了，求该数。

1534

33

求[1，50]之间的所有整数能构成直角三角形的三边的组数。

例如：

3*3+4*4=5*5，它们构成直角三角形，所以{3，4，5}作为一组，但{4，3，5}视为跟{3，4，5}相同的一组。

20

34

求数列：

2/1，3/2，5/3，8/5，13/8，21/13，……前50项之和（注：

此数列从第二项开始，其分子是前一项的分子与分母之和，其分母是前一项的分子）。

（按四舍五入的方式精确到小数点后第二位）

83.24

35

求五位数各位数字的平方和为100的最大的五位数。

94111

36

求在[2，1000]之间的所有同构数之和（某正整数的平方，其低位与该数本身相同，则称该数为同构数。

例如25^2=625，625的低位25与原数相同，则称25为同构数）。

1113

37

若两个连续的自然数的乘积减1后是素数，则称此两个连续自然数为友数对，该素数称为友素数。

例如，由于8*9-1=71，因此，8与9是友数对，71是友素数。

求[50，150]之间的友数对的数目。

38

38

数列：

E

（1）=E

（2）=1

E（n）=（n-1）*E（n-1）+（n-2）*E（n-2）（n>2）

称为E数列，每一个E（n）,（n=1,2,…）称为E数。

求[1，30000]之内E数的个数。

8

39

一个自然数是素数，且它的数字位置经过任意对换后仍为素数，则称为绝对素数。

如13，试求所有两位绝对素数的和。

429

40

已知：

f（0）=f

（1）=1f

（2）=0f（n）=f（n-1）-2*f（n-2）+f（n-3）（n>2）

求f（0）到f（50）中的最大值。

598325

41

已知：

f（n）=f（n-1）+2*f（n-2）-5*f（n-3）,f（0）=1,f

（1）=2,f

（2）=3,求f（0）+f

（1）+…f（30）。

-750874

42

已知：

A1=1,A2=1/（1+A1）,A3=1/（1+A2）,A4=1/（1+A3）,……,求A50.（按四舍五入的方式精确到小数点后第三位）。

0.618

43

已知A，B为正整数,A

71

44

已知A

109

45

自然数对是指两个自然数的和与差都是平方数，如8和17的和8+17=25与其差17-8=9都是平方数，则称8和17是自然数对（8，17）。

假定（A，B）与（B，A）是同一个自然数对且假定A>=B，求所有小于或等于100（即：

A<=100,B<=100，A<>B,A和B均不为0）的自然数对中B之和。

1160

46

有50个学生一起买小吃，共花钱120元，其中每个大学生花4元，每个中学生花3元，每个小学生花2元，问大、中、小学生的人数分配共有多少种不同的解（去掉某类学生为0的解）？

9

1

程序功能：

求s=1+3+5+7+...直到s>2000为止。

程序中有两行有错误。

改正错误，使它能输出正确的结果。

PrivateSubCommand1_Click（）DimiAsInteger,sAsLongs=0i=1DoUntils<2000s=s+ii=i+1LoopPrintsEndSub

2025

2

程序功能：

求s=1+3+5+7+...直到s>3000为止。

程序中有两行有错误。

改正错误，使它能输出正确的结果。

PrivateSubCommand1_Click（）DimiAsInteger,sAsLongs=0i=1DoUntils<3000s=s+ii=i+1LoopPrintsEndSub

3025

3

程序功能：

计算s=2!

+4!

+8!

。

程序中有两行有错误。

改正错误，使它能输出正确的结果。

PrivateSubCommand1_Click（）DimkAsInteger,iAsIntegerDimsAsLong,tAsLongs=0i=1DoWhilei<=3t=1k=1Whilek<=2*it=t*kk=k+1Wends=s+ti=i+1WendPrintsEndSub

40346

4

程序功能：

计算s=2!

+4!

+6!

+8!

。

程序中有两行有错误。

改正错误，使它能输出正确的结果。

PrivateSubCommand1_Click（）DimkAsInteger,iAsIntegerDimsAsLong,tAsLongs=0i=1DoWhilei<=3t=1k=1Whilek<=2^it=t*kk=k+1Wends=s+ti=i+1WendPrintsEndSub

41066

5

程序功能：

求200到400间，能被３整除但不能被７整除的数的个数。

程序中有两行有错误。

改正错误，使它能输出正确的结果。

PrivateSubCommand1_Click（）DimcountAsIntegerDimxAsIntegercount=0x=200Whilex<=400IfxMod3=0OrxMod7<>0Thencount=count+1EndIfx=x+1LoopPrintcountEndSub

57

6

程序功能：

求200到500间，能被13整除但不能被17整除的数的个数。

程序中有两行有错误。

改正错误，使它能输出正确的结果。

PrivateSubCommand1_Click（）DimcountAsIntegerDimxAsIntegercount=0x=200Whilex<=500IfxMod13=0OrxMod17<>0Thencount=count+1EndIfx=x+1LoopPrintcountEndSub

21

7

程序功能：

求1到400间，同时能被3和7整除的数的个数。

程序中有两行有错误。

改正错误，使它能输出正确的结果。

PrivateSubForm_Click（）DimcountAsIntegerDimxAsIntegerForx=1To400ifmod（x,3）=0andmod（x,7）=0thencount=count+1endifNextcountprintcountEndSub

19

8

程序功能：

求1到500间，同时能被5和9整除的数的个数。

程序中有两行有错误。

改正错误，使它能输出正确的结果。

PrivateSubCommand1_Click（）DimcountAsIntegerDimxAsIntegerForx=1To500ifmod（x,5）=0andmod（x,9）=0thencount=count+1endifNextcountprintcountEndSub

11

9

程序功能：

求能被3整除且至少有一位数字为5的三位数的个数。

程序中有两行有错误。

改正错误，使它能输出正确的结果。

PrivateSubCommand1_Click（）DimcountAsIntegerDimaAsInteger,bAsInteger,cAsIntegerDimxAsIntegerx=100DoWhilex<=999IfxMod3=0Thena=Int（x/100）b=Int（（x-a*100）/10）c=x-a*100-b*10Ifa=5Andb=5Andc=5Thencount=count+1EndIfEndIfx=x+1WendPrintcountEndSub

85

10

程序功能：

求能被7整除且至少有一位数字为9的三位数的个数。

程序中有两行有错误。

改正错误，使它能输出正确的结果。

PrivateSubCommand1_Click（）DimcountAsIntegerDimaAsInteger,bAsInteger,cAsIntegerDimxAsIntegerx=100DoWhilex<=999IfxMod7<>0Thena=Int（x/100）b=Int（（x-a*100）/10）c=x-a*100-b*10Ifa=9andb=9Andc=9Thencount=count+1EndIfEndIfx=x+1LoopPrintcountEndSub

36

11

程序功能：

求三位偶数中，个位数字与十位数字之和除以10所得的余数是百位数字的数的个数。

程序中有两行有错误。

改正错误，使它能输出正确的结果。

PrivateSubCommand1_Click（）DimcountAsIntegerDimaAsInteger,bAsInteger,cAsIntegerDimxAsIntegercount=0x=100Whilex<=999a=Int（x/100）b=Int（x/10）-a*10c=x-a*100-b*10ifmod（x,2）=0ORmod（b+c,10）=athencount=count+1EndIfx=x+1LoopPrintcountEndSub

45

12

程序功能：

求三位奇数中，个位数字与十位数字之和除以10所得的余数是百位数字的数的个数。

程序中有两行有错误。

改正错误，使它能输出正确的结果。

PrivateSubCommand1_Click（）DimcountAsIntegerDimaAsInteger,bAsInteger,cAsIntegerDimxAsIntegercount=0x=100Whilex<=999a=Int（x/100）b=Int（x/10）-a*10c=x-a*100-b*10ifxmod2=0Orb+cmod10=athencount=count+1EndIfx=x+1LoopPrintcountEndSub

45

13

程序功能：

求平方和小于2000的最大自然数。

程序中有两行有错误。

改正错误，使它能输出正确的结果。

PrivateSubForm_Click（）DimxAsIntegerDimsAsIntegers=0x=0DoWhiles>=2000x=x+2s=s+x*xloopPrintxEndSub

18

14

程序功能：

求1～100中,两个不同的数之和能被3或7整除的“数对”的对数（注意:

3+5和5+3认为是同一“数对”）？

程序中有两行有错误。

改正错误，使它能输出正确的结果。

PrivateSubForm_Click（）DimnAsInteger,iAsIntegern=0i=1DoWhilei<=100J=1DoWhileJ<=100IFMOD（I+J,3）<>0ORMOD（I+J,7）=0thenn=n+1EndIfJ=J+1Loopi=i-1LoopPrintn/2EndSub

2121

15

程序功能：

解百马百瓦古题。

大、小马和马驹共100匹，共驮100片瓦。

大马一驮三，小马一驮二，马驹二驮一，一次驮完，三种马都驮，共有多少种组合?

程序中有三行有错误。

改正错误，使它能输出正确的结果。

PrivateSubForm_Click（）DimxAsInteger,yAsInteger,zAsIntegerDimsAsIntegers=0Forx=1To33Fory=1To50z=100-x-yIf3*x+2*y+z/2<>100Thens=s+1EndIfNextxNextyPrintsEndSub

6

16

程序功能：

解百马百瓦古题。

大、小马和马驹共100匹，共驮100片瓦。

大马一驮三，小马一驮二，马驹二驮一，一次驮完，三种马都驮，共有多少种组合?

程序中有一行有错误。

改正错误，使它能输出正确的结果。

PrivateSubForm_Click（）s=0dm=1DoWhiledm<=100/3xm=1DoWhilexm<=100/2-dmmj=100-dm-xmIfdm+xm+mj=100Thens=s+1EndIfxm=xm+1Loopdm=dm+1LoopPrintsEndSub

6

17

程序功能：

求100-200之间的所有素数个数，程序中有两行有错误。

改正错误，使它能输出正确的结果。

PrivateSubCommand1_Click（）Number=0Forx=101To199Step2i=2k=Int（x/2）DoWhilei<=kIfxModi=0ThenExitFori=i+1LoopIfi

21

18

程序功能：

sum=d+dd+ddd+……+ddd..d（d为1-9的数字）。

例如：

3+33+333+3333（此时d=3,n=4）。

从键盘上输入d的值为8，n的值为9，求sum的值。

程序中有两行有错误。

改正错误，使它能输出正确的结果。

PrivateSubForm_Click（）DimdAsInteger,nAsInteger,iAsIntegerDimsumAsLongsum=0d=Val（InputBox（"请输入数值d:

"））n=Val（InputBox（"请输入数值n:

"））Fori=1Tontn=tn+dsum=sun+tnNextiPrintsumEndSub

864197523

19

程序功能：

输出水仙花的个数（所谓水仙花数是指一个三位十进制数，该数的各位数字立方之和等于该数本身。

例如153是一个水仙花数，因为1^3+5^3+3^3=153）程序中有两行有错误。

改正错误，使它能输出正确的结果。

OptionExplicit

PrivateSubForm_Click（）DimnumberAsIntegerDimnAsInteger,iAsInteger,jAsInteger,kAsIntegerForn=100To999i=n/100‘百位j=Int（n/10）-i*10‘十位k=nMod10‘个位If（n=i*i*i+j*j*j+k*k*k）Thennumber=numbre+1EndIfNextnPrintnumberEndSub

4

20

程序功能：

求数列2/1，3/2，5/3，8/5，13/8，……的前10项之和。

程序中有两行有错误。

改正错误，使它能输出正确的结果。

PrivateSubForm_Click（）DimiAsInteger,tAsInteger,nAsIntegerDimaAsInteger,bAsIntegerDimsAsSinglea=2:

b=1:

n=10:

s=0Fori=1Tons=s+a/bt=ba=a+ba=tNextiPrintsEndSub

16.47991

21

程序功能：

猴子第1天摘下若干桃子，当即吃掉一半，又多吃一个，第二天将剩余的部分吃掉一半还多一个；以此类推，到第10天只剩余1个。

问第1天共摘了多少桃子。

程序中有两行有错误。

改正错误，使它能输出正确的结果。

PrivateSubForm_Click（）DimdayAsInteger,sumAsIntegerday=10;sum=1DoWhileday>1sum=sum*2day=day-1LoopPrintsumEndSub

1534

22

程序功能：

一个两位数的正整数，如果将其个位数与十位数字对调所生成的数称为其对调数，如28是82的对调数。

现给定一个两位的正整数46，请找到另一个两位的整数，使这两个数之和等于它们的各自的对调数之和。

这样的另一个两位数有多少个。

程序中有两行有错误。

改正错误，使它能输出正确的结果。

PrivateSubForm_Click（）DimxAsInteger,yAsInteger,numberasIntegerDimxfAsInteger,yfAsIn