1、?4、求出1234，6789内中间两位数字之和等于首尾两位数字之积的数的个数。 （正确答案175）FOR x=1234 to 6789 b=INT（x-a*1000）/100） c=INT（x-a*1000-b*100）/10） d=x-a*1000-b*100-c*10 IF b+c=a*d5、求所有符合算式ab*ba=3627的最大的两位数ab（即a*10+b）。（其中a、b是1-9之间的整数）（正确答案93）FOR x=11 to 99 a=INT（x/10） b=MOD（x,10） y=b*10+a IF x*y=3627 exity6、求前1，100以内能被6或8整除的所有自然数的平
2、方根的和（将第一位小数四舍五入，结果只保留整数）。（正确答案162）s=0FOR n=1 to 100 IF MOD（n,6）=0 or MOD（n,8）=0 s=s+SQRT（n） ROUND（s,0）7、回文指的是正读和反读都一样的字符串，如121、1221。试求出1234，9876内回文数的个数。（正确答案85）FOR x=1234 to 9876 d=x-a*1000-b*100-c*10 IF a=d and b=c8、若一个四位正整数是另一个正整数的平方，且各位数字的和是一个平方数，则称该四位正整数是“四位双平方数”。例如：由于7396=862,且7+3+9+6=25=52,则称7
3、396是“四位双平方数”。求所有四位双平方数的个数。（正确答案17）FOR i=1000 to 9999 a=INT（i/1000） b=INT（MOD（i,1000）/100） c=INT（MOD（i,100）/10） d=MOD（i,10）x=a+b+c+d IF INT（SQRT（i）=SQRT（i） and INT（SQRT（x）=SQRT（x）二、整除与余数，数字包含1、求出【100，600】内被3除余2并且被5除余3的整数的个数。（正确答案33）ClearN=0For x=100 to 600 If mod（x,3）=2 and mod（x,5）=3 N=n+1 EndifEndf
4、or2、求出将十进制整数98765432等值转换为二进制形式表示后其中数字1的个数。（正确答案13）a=98765432 p=2 n=0 do while a IF r=1 n=n+13、求出将十进制小数0.56789等值转换为八进制形式表示后前18位小数中数字3的个数。（正确答案3）X=0.56789For k=1 to 18 X=x*8Z=int（x）X=x-zIf z=3Endif4、求出100，800内所有既不能被5整除也不能被7整除的整数的个数。（正确答案480）FOR x=100 to 800 IF MOD（x,5）0 and MOD（x,7） s=s+x ENDIFs11、编写程
5、序计算10000以内所有十位数为6且该数能被7整除的数之和。（正确答案719222） FOR i=1 to 10000 sw=INT（MOD（i,100）/10） IF sw=6 IF MOD（i,7）=0 n=n+i三、求素数类。1、求100-200内的所有素数的个数。（素数是指只能被1和本身整除的数）（正确答案21） FOR i=100 to 200 f=1 FOR j=2 to i-1 IF MOD（i,j）=0 f=0 EXIT IF f=12、梅森尼数是指能使2n-1为素数的数n,求1，21范围内的梅森尼数的个数？（正确答案7）s=2 FOR x=2 to 21 s=s*2 flag
6、=1 FOR i=2 to INT（SQRT（s-1） IF MOD（s-1,i）=0 flag=0 IF flag=1 3、求100-1000内最大的素数。（素数是指只能被1和本身整除的数）（正确答案997） FOR i=100 to 1000 n=i4、设某四位数的各位数字的平方和等于100，问满足这种条件的最大的四位数且是素数的数是多少？（正确答案9133） FOR i=2 to x-1 IF MOD（x,i）=0 EXIT IF f=1 c=INT（mod（x,100）/10） IF a*a+b*b+c*c+d*d=100 5、一个自然数是素数，且它的数字位置经过任意对换后仍为素数，则
7、称为绝对素数。如13，试求两位数中最大的绝对素数。 正确答案97 clearmax=0for i=10 to 99 j=mod（i,10）*10+int（i/10） f1=1 for k=2 to i-1 if mod（i,k）=0 f1=0 if f1=1 f2=1 for k=2 to j-1 if mod（j,k）=0 f2=0 if f2=1 max=i endif四、数列、数组类。1、求方程4x+9y=1000的正整数解的个数。（正确答案27）For x=1 to 249Y=int（1000-4*x）/9） If 4*x+9*y=1000 N=n+12、某国在2000年的人口总数为1
8、亿，若以每年3%的速度递增，试求出至少要到哪一年该国人口总数才会翻一翻。（正确答案2024）s=1FOR n=2001 to 2100 s=s*1.03 IF s=23、设等比数列：1，3，9，27求使得此数列的前n项之和小于9876543的最大的自然数n。（正确答案15）a=1 s=s+a9876543 a=a*3n-14、设一数列f（n）：f（1）=1，,f（2）=4,当n=3,4,5,.时f（n）=3*（f（n-1）-f（n-2）。试求出此100以内最大的自然数n使得此数列的前n项之和首次大于75364321。（正确答案19）dimension f（100）f（1）=1f（2）=4s=5
9、for n=3 to 100 f（n）=3*f（n-1）-f（n-2） s=s+f（n） if s753643215、设一数列f（n）：f（1）=1，当n1时f（n）=1/（f（n-1）+1）。试求出此数列的前20项中大于0.618的项的数目。f=1 n=1 FOR k=2 to 20 f=1/（f+1） IF f0.618 6、一球从100米高处落至平地，并且连续多次再反弹再落下，假设每次反弹的高度都是前一高度的3/4倍，试求出最小的自然数n，使得此球从开始下落至第n次着地时在垂直方向所经过的总路程超过678米。h=100 s=100 FOR n=2 to 100 h=h*3/4 s=s+2
10、*h678 7、求S=1-1/3+1/5-1/7+的前100项之和（精确到小数点后4位）（正确答案0.7829）f=-1FOR i=1 to 99 s=s+f/（2*i+1） f=-fround（s,4）8、 已知数列1,2,4,7,11,16.其规律是相邻两项之差依次是1,2,3,4,5,.试求出此数列中小于6000的最大的项。（正确答案5996） FOR n=1 to 1000 IF a+n6000 a=a+na9、设一个数列的前3项都是1，从第4项开始，每一项都是其前3项之和。试求出此数列的前25项中大于54321的项数（正确答案5）store 1 to f1,f2,f3for k=1
11、to 22 f=f1+f2+f3 if f54321 f1=f2 f2=f3 f3=f 10、已知一个由分数组成的数列：1/2，,3/5,8/13,21/34,其特点是：从第二个分数起，每个分数的分子是前一项的分子与分母之和，其分母是其分子与前一分数分母之和，试求出此数列的前25项中其值大于0.618的项数。（正确答案20）f1=1f2=2for k=1 to 25 f=f1/f2 f1=f1+f2 f2=f2+f1n 11、求出100以内最大的奇数n使得算式（1-1/2）+（1/3-1/4）+（1/n-1/（n+1）的值小于0.68。（正确答案35） for n=1 to 100 step
12、2a=1/n-1/（n+1）0.68 n-2五、勾股数类。1、对自然数A、B、C,若ABC且A*A+B*B=C*C，则称A,B,C为一组勾股弦数，其中A、B、C分别称为勾股弦。求出弦值为1300的勾股弦组数。c=1300for a=1 to c-1b1=sqrt（c*c-a*a） b=int（b1） if b=b1 and bendfor2、对自然数A、B、C,若A求出弦值为2500的勾股数组中A+B+C的值最大为多少？（正确答案6000）c=2500b=INT（sqrt（c*c-a*a） if A*A+B*B=C*C and ab IF maxa+b+c max=a+b+c3、*对自然数A、
13、B、C,若A求出弦值为100,300内符合条件的数有多少组（正确答案159）for c=100 to 300 FOR b=1 to c-1 FOR a=1 to b-1 if A*A+B*B=C*C 六、组合关系。1、下列程序解百马百瓦问题。大马、小马和马驹共100匹，大马一驼三、小马一驼二，马驹二驼一，共100片瓦一次驼完，三种马都驼，共有多少种组合。（11）S=0Dm=1Do while dm=100/3 Xm=1 Do while xmmax1 max1=t IF min1t min1=tmax1-min1 5、求方程3x-7y=1在条件|x|100且|y|40下的所有整数解的|x|+|
14、y|的最小值。min=140for x=-99 to 99 y=int（3*x-1）/7） z=abs（x）+abs（y） if 3*x-7*y=1 and abs（x）40 and z min=z6、若一个自然数恰好是它的平方的末后几位数，则称此数为自同构数。如5和76都是自同构数，因为它们的平方分别是25和5776。求2，99999内所有自同构数之和。（正确答案101114）。FOR x=2 to 99999 y=x*x m=LEN（LTRIM（STR（x） IF MOD（y,10m）=x s=s+x7、求满足条件A*B=54321且使A+B的值最小的自然数对A、B中较大的一个数。（正确答
15、案953）c=54321k=INT（SQRT（c）FOR a=1 to k b=INT（c/a） IF a*b=c max=b（二）、程序填空题。（二级考生使用）1、下列程序是计算小于或等于35的所有正奇数的积和正偶数的和，并显示符合条件的正奇数的积。答案有误！S1=1S2=0For i=1 to 35 If int（i/2）i/2S1=s1*iElseS2=s2+is12、下列程序求三位数中，个位数字与十位数字之积除以3所得的余数是十位数字的偶数和，填空完成程序。（保留整数位）（正确答案32022）X=100Do while x=999 A=int（x/100）B=int（x/10）-a*1
16、0C=x-a*100-b*10If mod（x,2）=0 and mod（c*b,3）=bS=s+xX=x+13、求出100-999内的水仙花数的个数。（4）for i=100 to 999a=int（i/100） b=int（mod（i,100）/10）d=mod（i,10） if a3+b3+d*3=iendif4、求所有数字的和为16的四位数的个数，填空完成程序。（保留整数位）（正确答案564）t=0 for i=1000 to 9999 j=alltrim（str（i） a=left（j,1） b=substr（j,2,1） c=substr（j,3,1） d=right（j,1） if val（a）+val（b）+val（c）+val（d）=16 t=t+15、已知S1=1，S2=1+2，S3=1+2+3，SN=1+2+3+N，求S1，S2，S3，S2800中有多少个能被3或7整除的数。填空完成程序。（保留整数位）（答案不对。正确答案2133）i=1do while i=2800 j=1 do while j=i s=s+j j=j+1 enddo if INT（s/3）=s/3 or INT（s/7）=s/7 i=i+16、下面的程序是求1+3+5+的奇数之和，若累加数大于123699时则结束累加。（保留整数位）（正确答案1
