编程答案Word格式文档下载.docx
《编程答案Word格式文档下载.docx》由会员分享，可在线阅读，更多相关《编程答案Word格式文档下载.docx（133页珍藏版）》请在冰点文库上搜索。
有一台阶,如果每次走两阶,最后剩一阶;
如果每次走三阶,最后剩两阶;
如果每次走四阶,最后剩三阶;
如果每次走五阶,最后剩四阶;
如果每次走六阶,最后剩五阶;
如果每次走七阶,刚好走完.求满足上述条件的最小台阶数是多少？
119
7
编程求取：
[121,140]之间的弦数的个数（若某正整数的平方等于另两个正整数平方之和，则称该数为弦数.例如:
3^2+4^2=5^2,因此5是弦数）。
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<
k。
编写程序，求满足下列条件的所有四位数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。
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]之间有多少对双胞胎数。
25
当m的值为50时，计算下列公式的值：
T=1-1/2-1/3-1/4-…-1/m
要求：
按四舍五入的方式精确到小数点后第四位。
-2.4992
当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
某些分数的分子和分母都是二位正整数的真分数具有下列特点：
如果将该分数的分子的两位数字相加作分子，而将该分数的分母的两位数字相加作分母，得到的新分子跟原分子相等。
例如，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}相同的一组。
求数列：
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
数列：
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数的个数。
39
一个自然数是素数，且它的数字位置经过任意对换后仍为素数，则称为绝对素数。
如13，试求所有两位绝对素数的和。
429
40
已知：
f（0）=f
（1）=1f
（2）=0f（n）=f（n-1）-2*f（n-2）+f（n-3）（n>
求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<
B,A*B=2698，且要求A+B取最小值，求满足上述条件的B值。
71
44
已知A<
B,A和B均为正整数，且A*B=2698，求A+B的最小值。
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的解）？
程序功能：
求s=1+3+5+7+...直到s>
2000为止。
程序中有两行有错误。
改正错误，使它能输出正确的结果。
PrivateSubCommand1_Click（）DimiAsInteger,sAsLongs=0i=1DoUntils<
2000s=s+ii=i+1LoopPrintsEndSub
2025
3000为止。
3000s=s+ii=i+1LoopPrintsEndSub
3025
计算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
+6!
=2^it=t*kk=k+1Wends=s+ti=i+1WendPrintsEndSub
41066
求200到400间，能被３整除但不能被７整除的数的个数。
PrivateSubCommand1_Click（）DimcountAsIntegerDimxAsIntegercount=0x=200Whilex<
=400IfxMod3=0OrxMod7<
0Thencount=count+1EndIfx=x+1LoopPrintcountEndSub
57
求200到500间，能被13整除但不能被17整除的数的个数。
=500IfxMod13=0OrxMod17<
21
求1到400间，同时能被3和7整除的数的个数。
PrivateSubForm_Click（）DimcountAsIntegerDimxAsIntegerForx=1To400ifmod（x,3）=0andmod（x,7）=0thencount=count+1endifNextcountprintcountEndSub
19
求1到500间，同时能被5和9整除的数的个数。
PrivateSubCommand1_Click（）DimcountAsIntegerDimxAsIntegerForx=1To500ifmod（x,5）=0andmod（x,9）=0thencount=count+1endifNextcountprintcountEndSub
11
求能被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
求能被7整除且至少有一位数字为9的三位数的个数。
=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
求三位偶数中，个位数字与十位数字之和除以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
求三位奇数中，个位数字与十位数字之和除以10所得的余数是百位数字的数的个数。
=999a=Int（x/100）b=Int（x/10）-a*10c=x-a*100-b*10ifxmod2=0Orb+cmod10=athencount=count+1EndIfx=x+1LoopPrintcountEndSub
求平方和小于2000的最大自然数。
PrivateSubForm_Click（）DimxAsIntegerDimsAsIntegers=0x=0DoWhiles>
=2000x=x+2s=s+x*xloopPrintxEndSub
18
求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
解百马百瓦古题。
大、小马和马驹共100匹，共驮100片瓦。
大马一驮三，小马一驮二，马驹二驮一，一次驮完，三种马都驮，共有多少种组合?
程序中有三行有错误。
PrivateSubForm_Click（）DimxAsInteger,yAsInteger,zAsIntegerDimsAsIntegers=0Forx=1To33Fory=1To50z=100-x-yIf3*x+2*y+z/2<
100Thens=s+1EndIfNextxNextyPrintsEndSub
6
程序中有一行有错误。
PrivateSubForm_Click（）s=0dm=1DoWhiledm<
=100/3xm=1DoWhilexm<
=100/2-dmmj=100-dm-xmIfdm+xm+mj=100Thens=s+1EndIfxm=xm+1Loopdm=dm+1LoopPrintsEndSub
求100-200之间的所有素数个数，程序中有两行有错误。
PrivateSubCommand1_Click（）Number=0Forx=101To199Step2i=2k=Int（x/2）DoWhilei<
=kIfxModi=0ThenExitFori=i+1LoopIfi<
kThenNumber=Number+1EndIfNextxPrintNumberEndSub
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
输出水仙花的个数（所谓水仙花数是指一个三位十进制数，该数的各位数字立方之和等于该数本身。
例如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
求数列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
猴子第1天摘下若干桃子，当即吃掉一半，又多吃一个，第二天将剩余的部分吃掉一半还多一个；
以此类推，到第10天只剩余1个。
问第1天共摘了多少桃子。
PrivateSubForm_Click（）DimdayAsInteger,sumAsIntegerday=10;
sum=1DoWhileday>
1sum=sum*2day=day-1LoopPrintsumEndSub
1534
程序功能：
一个两位数的正整数，如果将其个位数与十位数字对调所生成的数称为其对调数，如28是82的对调数。
现给定一个两位的正整数46，请找到另一个两位的整数，使这两个数之和等于它们的各自的对调数之和。
这样的另一个两位数有多少个。
PrivateSubForm_Click（）DimxAsInteger,yAsInteger,numberasIntegerDimxfAsInteger,yfAsIn
升级会员 