发布时间 : 星期日 文章2010年程序改错、填空、编写答案更新完毕开始阅读
a=int(x/1000)
b=int(mod(x,1000)/100) c=int(mod(x,100)/10) d=mod(x,10)
if mod(a*b*c*d,125)=0 and a*b*c*d<>0 s=s+x endif endfor ?s 8、50元的整币兑换成5元、2元和1元币值（三种币值均有、缺少一种或两种都计算在内）的方法有多少种。 正确答案146 n=0
for wu=0 to 10 for er= 0 to 25
for yi=0 to 50 if yi+2*er+5*wu=50 n=n+1 endif endfor endfor endfor ?n 9、（x,y,z）满足方程：x^2+y^2+z^2=55^2(注：要求 x > y > z),则（x,y,z）称为方程的一个解。试求方程的整数解（包括负整数解）的个数。 正确答案62 n=0
for x=-55 to 55 for y=-55 to x-1 for z=-55 to y-1
if x^2+y^2+z^2=55^2 n=n+1 endif endfor endfor endfor ?n
10、已知：非等腰三角形最长边是60，其他两边的长度都是正整数，且三边之和能被3整除。试编程求取这类三角形的个数。正确答案271 n=0
for i=1 to 59
for j=1 to i-1
if mod(i+j,3)=0 and i+j>60 n=n+1 endif endf endf ?n
11、已知a，b为正整数, a for b=1 to 2698 for a=1 to b-1 s=a+b if a*b=2698 and mins>s mins=s minb=b endi endf endf ? minb 12、猴吃桃：有一天小猴子摘下了若干个桃子，当即吃掉一半,还觉得不过瘾,又多吃了一个.第二天接着吃了剩下的桃子中的一半,仍不过瘾,又多吃了一个。以后每天都吃尚存桃子的一半零一个。到第10天早上小猴子再去吃桃子时，看到只剩下一个桃子了。问小猴子第一天共摘下了多少个桃子。正确答案1534 x=1 for i=1 to 9 x=(x+1)*2 endf ?x 13、a,b,c是三个小于或等于100正整数，当满足1/a^2+1/b^2=1/c^2关系时，称为倒勾股数。求130 for a=1 to 100 for b=1 to a-1 for c=1 to b-1 if 1/a^2+1/b^2=1/c^2 and a+b+c>130 and a+b+c<150 5 n=n+1 endif endfor endfor endfor ?n 14、编写程序，求满足下列条件的所有四位数abcd的个数，该四位数是16的倍数，且b=8,a+b=b+c，即第1位数加上第2位数等于第2位数加上第3位数。 正确答案5 n=0 for x=1000 to 9999 a=int(x/1000) b=int(mod(x,1000)/100) c=int(mod(x,100)/10) if mod(x,16)=0 and a+b=b+c and b=8 n=n+1 endif endfor ?n 15、编写程序，计算1000以内有多少个这样的数，其十位数为6且能被8整除。 正确答案15 n=0 for i=1 to 1000 sw=int(mod(i,100)/10) if sw=6 and mod(i,8)=0 n=n+1 endif endfor ?n 16、编写程序，计算在[0，60]的范围内有多少个数，其每位数的乘积大于每位数的和。 31 n=0 for i=1 to 60 a=int(i/10) b=mod(i,10) if a*b>a+b n=n+1 endif endfor ?n 17、编写程序，求出100到500之间同时满足除3余2和除5余3条件的数的个数。 正确答案26 n=0 for i=100 to 500 if mod(i,3)=2 and mod(i,5)=3 n=n+1 endif endfor ?n 18、编写程序，求三位数的偶数中，所有各位数字之和是15的倍数的数的个数。正确答案34 n=0 for x=100 to 999 step 2 a=int(x/100) b=int(mod(x,100)/10) c=mod(x,10) if mod(a+b+c,15)=0 n=n+1 endif endfor ?n 19、求五位数各位数字的平方和为100的最大的五位数。 正确答案94111 s=0 mx=0 for i=10000 to 99999 a=int(i/10000) b=int(mod(i,10000)/1000) c=int(mod(i,1000)/100) d=int(mod(i,100)/10) e=mod(i,10) if a^2+b^2+c^2+d^2+e^2=100 and i>mx mx=i endif endfor ?mx 20、编写程序，求1到5000之间的能被5整除的前若干个偶数之和，当和值大于500时退出，输出该和值。正确答案 550 s=0 for i=2 to 5000 step 2 6 if mod(i,5)=0 s=s+i endif if s>500 exit endif endf ?s 21、有一个三位数满足下列条件：(1)此三位数的三位数字各不相同；(2)此三位数等于它的各位数字的立方和；试求所有这样的三位数这，第二大的是多少？正确答案371 for i=100 to 999 a=int(i/100) b=int(mod(i,100)/10) c=mod(i,10) if a<>b and b<>c and a**3+b^3+c^3=i ?i endif endfor 22、求在[2，1000]之间的所有同构数之和(某正整数的平方，其低位与该数本身相同，则称该数为同构数。例如25^2=625，625的低位25与原数相同，则称25为同构数)。正确答案1113 s=0 for i=2 to 1000 k=i^2 l=len(alltrim(str(i))) && 测试是几位数 if val(right(str(k),l))=i s=s+i endif endfor ? s 23、编写程序，统计10 00~9999之间的所有满足以下条件的四位数的个数。该数是一个完全平方数，且第1、2位数字之和为10，第3、4位数字之积为18。 正确答案3 n=0 for x=1000 to 9999 a=int(x/1000) b=int(mod(x,1000)/100) c=int(mod(x,100)/10) d=mod(x,10) if int(sqrt(x))=sqrt(x) and a+b=10 and c*d=18 n=n+1 endif endfor ?n 24、编写程序，求在四位数的偶数中，所有各位数字之和是30的倍数的数的和。 正确答案288840 s=0 for x=1000 to 9999 step 2 a=int(x/1000) b=int(mod(x,1000)/100) c=int(mod(x,100)/10) d=mod(x,10) if mod(a+b+c+d,15)=0 s=s+x endif endfor ?s 25、编写程序，求一正整数等差数列的前六项的和，该数列前四项之和是26，四项之积是880。 正确答案57 for a=1 to 26 for d=1 to 26 if 4*a+6*d=26 and a*(a+d)*(a+2*d)*(a+3*d)=880 ?6*a+15*d endi endfor endfor 26、编写程序，已知：s=1+3+5+7+9+?，求s不大于9000的最大值。 正确答案8836 i=1 s=1 do while s<9000 i=i+2 s=s+i enddo ?s-i 27(1)、编写程序，求共有几组i,j,k符合算式 7 ijk+kji=1534,其中i,j,k是[0,9]之间的一个整数且i for x=100 to 999 i=int(x/100) j=int(mod(x,100)/10) k=mod(x,10) y=100*k+10*j+i if x+y=1534 and i 27(2)、编写程序，统计1000~9999之间的所有满足以下条件的四位数的个数。该数是一个完全平方数，且第1、2位数字之和为12，第3、4位数字之积为24。 正确答案1 n=0 for x=1000 to 9999 a=int(x/1000) b=int(mod(x,1000)/100) c=int(mod(x,100)/10) d=mod(x,10) if int(sqrt(x))=sqrt(x) and a+b=12 and c*d=24 n=n+1 endif endfor ?n 28、编程求取：[121，140]之间的弦数的个数。(若某正整数的平方等于另两个正整数平方之和，则称该数为弦数。例如：3^2+4^2=5^2，因此5是弦数)。正确答案8 n=0 for c=121 to 140 for a=1 to c b=int(sqrt(c^2-a^2)) if a^2+b^2=c^2 and a 29、已知a for a=1 to 2698 b=int(2698/a) if a 30、有50个学生一起买小吃，共花钱120元，其中每个大学生花4元，每个中学生花3元，每个小学生花2元，问大、中、小学生的人数分配共有多少种不同的解（去掉某类学生为0的解）？ 正确答案9 n=0 for a=1 to 30 for b=1 to 40 for c=1 to 50 if a+b+c=50 and 4*a+3*b+2*c=120 n=n+1 endif endf endf endf ?n 31、某些分数的分子和分母都是二位正整数的真分数具有下列特点：如果将该分数的分子的两位数字相加作分子，而将该分数的分母的两位数字相加作分母，得到的新分子跟原分子相等。例如，63/84=（6+3）/（8+4）。试求所有具有这种特点的真分子（非约简真分数）的分子与分母之和的和。 正确答案10134 s=0 for x=10 to 99 for y=10 to 99 a=int(x/10) b=mod(x,10) c=int(y/10) d=mod(y,10) 8