1、1.求 1108 所有整数的平方和并输出结果。#425754 2.求 1135 的平方根的和并输出结果。（保留小数点两位）#1051.31 3.求 s=1-1/2+1/3-1/4+1/5-1/6+1/99-1/100 的值（按四舍五入方式精确到小数点后 4位）#0.6882 4.求351,432之间所有既不能被 3 整除,又不能被 8 整除的整数的和。#18413 5.求 1000 以内，同时能被 3 和 7 整除的所有自然数之和的平方根。（按四舍五入方式精确到小数点后第二位）。#153.91 6.求 1 到 1000 之内能被 7 或 11 整除，但不能同时被 7 和 11 整除的所有整数的
2、个数。#208 7.求 500 以内（含 500）能被 5 或 9 整除的所有自然数的倒数之和。按四舍五入保留两位小数。#1.48 8.编程序求 2+4+8+16+32+这样的数之和。如果累加数大于 9000 时，则程序终止并输出结果。#16382 9.编程序求出 1-100 以内的能被 3 整除的数的平方和。#112761 10.编程序求出 1-4000 以内能被 3 或者 11 整除的数的个数。#1575 11.编程序求出 1 到 4000 之间的能被 5 整除的前若干个偶数之和，当和大于 400 时退出并输出结果。#450 12.已知 S1=1，S2=1+3，S3=1+3+5，S4=1+
3、3+5+7，SN=1+3+5+7+（2N-1），N 为正整数。编程求 S1+S2+S3+S4+SN 的值6000 的 S 的最小值。#8166 14.已知 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 的值。#2097130 15.已知 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 的值.#2870 16.已知 S1=1，S2=1+2，S3=1+2+3，SN=1+2+n，求 S2
4、0 到 S80 之间有多少个数能被 17或 35 整除。#12 17.当 n=20 时，求 S=1+(1+20.5)+(1+20.5+30.5)+(1+20.5+30.5+n0.5)的值。要求：按四舍五入的方式精确到小数点后第二位。#534.19 18.当 n 的值为 25 时，计算下列公式的值 s=1+1/1!+1/2!+1/3!+1/n!要求：按四舍五入的方式精确到小数点后第四位。#2.7183 19.当 n 的值为 50 时，求 S 的值。S=1+1/(1+2)+1/(1+2+3)+1/(1+2+3+N)要求：按四舍五入的方式精确到小数点后第四位。#1.9608 20.老王和他的孙子年龄
5、之差为 60 岁,都出生于 20 世纪, 两人的出生年份分别被 3, 4, 5和 6 除, 余数均为 1, 2, 3 和 4。问老王出生在哪一年?#1918 21.爱因斯坦走台阶:有一台阶,如果每次走两阶,最后剩一阶;如果每次走三阶,最后剩两阶;如果每次走四阶,最后剩三阶;如果每次走五阶,最后剩四阶;如果每次走六阶,最后剩五阶;如果每次走七阶,刚好走完.求此第三小的台阶数是多少？#959 22.从 100 米高度落下一球,每次落地后反弹高度为上一次下落高度的 3/4,求该球第 10 次落地时,前后所经过的路径长度.#654.95 23.设某国今年的国民生产总值为 45600 亿元,若今后每年以
6、 9%的增长率增长,计算多少年后能实现国民生产总值翻一番?#9 24.编写程序，求一正整数等差数列的前 6 项的和，该数列前四项之和是 26，四项之积是 880。#57 (笔算很容易！) 25.编写程序，求一正整数等差数列的前五项的立方和，该数列前四项之和是 26、之积是 880。#4720 26.今有 5 羊 4 犬 3 鸡 2 兔值钱 1496，4 羊 2 犬 6 鸡 3 兔值钱 1175，3 羊 1 犬 7 鸡 5 兔值钱958，2 羊 3 犬 5 鸡 1 兔值钱 861，求羊值多少钱？#177（、犬 121、鸡 23、兔 29 ，四重循环编程选自量太在！） 27.求方程 X2-3*X+
7、1=0 在区间(0,1)内的解。要求：按四舍五入的方式精确到小数点后第二位。#0.38 28.求方程 X3-2X-5=0 在区间1.5,2.5上的一个实根。 要求：按四舍五入的方式精确到小数点后第二位。#2.09 29.自然数对是指两个自然数的和与差都是平方数，如 8 和 17 的和 8+17=25 与其差 17-8=9 都是平方数，则称 8 和 17 是自然数对（8，17）。假定（A，B）与（B，A）是同一个自然数对且假定 A=B，求所有小于或等于 100（即：A y z),则（x,y,z）称为方程的一个解。试求方程的整数解（包括负整数解）的个数。 #62 47.若有三个正整数 a、b、c
8、满足 a2+b2=c2，则 a，b，c 称为勾股数组，编一程序，问有多少个三个数均小于 50（含 50）的勾股数组(注意:a,b,c 不能为 0)。#40 48.倒勾股数是满足公式： 1/A2+1/B2=1/C2 的一组正整数（A，B，C），例如，（156，65，60）是倒勾股数，因为：1/1562+1/652=1/602。假定 ABC，求 A，B，C 之和小于 100 的倒勾股数有多少组？#2 49.编写程序，求共有几组 I,j,k 符合算式 ijk+kji=1534,其中 I,j,k 是0,9之间的一个整数。#2 50.设有一个 12*12 方阵 A（ I,j）,其每个元素的值为该元素下标
9、的平方和, 求出该矩阵所有元素的累加和. (注:I,j 从 1 开始)#15600 51.分子分母为正整数，分子小于分母且分子分母无公因数的分数称为最简真分数。对于分数的分母取值范围为 50，90 时的最简真分数共有多少个 .#773 (? 498) 52.某些分数的分子和分母都是二位正整数的真分数具有下列特点：如果将该分数的分子的两位数字相加作分子，而将该分数的分母的两位数字相加作分母，得到的新分子跟原分子相等。例如，63/84= （6+3）/ （8+4 ）。试求所有具有这样特点的真分子（非约简真分数）中最大的分数的分子与分母之和。#187 (记住：本题满足条件的最大分数是 88/99) 5
10、3.求3-1000之间最大的五个素数之和。#4919 54.求500,2500之间按递增顺序的素数中的第 25 大的素数。 #2309 55.所谓素数是指这样的大于 1 的自然数，除 1 和它本身外不再有其它因子（整除它的数）。编写程序，计算从 1981 年开始到 3000 年为止，我们将遇到多少个素数年号。#131 56.编程求区间500，2500中按递增顺序第 25 个素数。#659 57.若两个连续的自然数的乘积减 1 后是素数，则称此两个连续自然数为友数对，该素数称为友素数。例如，由于 8*9-1=71， 因此，8 与 9 是友数对，71 是友素数。求50，150 之间的第 10 个友
11、素数（按由小到大排列）。#4421 58.若两个素数之差为 2，则称这两个素数为双胞胎数。求出200，1000 之内有多少对双胞胎数。#20 59.求5,500中相差为 10 的相邻素数对的对数。#31 60.德国数学家哥德巴赫曾猜测：任何大于 6 的偶数都可以分解成两个素数的和。但有些偶数可以分解成多种素数对的和，如： 10=3+7，10=5+5，即 10 可以分解成两种不同的素数对。试求 6744 可以分解成多少种不同的素数对（注： A+B 与 B+A 认为是相同素数对）#144 61.梅森尼数是指能使 2n-1 为素数的数 n，求1 ，21范围内有多少个梅森尼数？#7 62.梅森尼数是指
12、能使 2n-1 为素数的数 n，求1 ，21范围内最大的梅素尼数？#19 63.一个素数（设为 p）依次从最高位去掉一位，二位，三位，若得到的各数仍都是素数(注：1 不是素数)，且数 p 的各位数字均不为零，则称该数 p 为逆向超级素数。例如，617，17，7 都是素数，因此 617 是逆向超级素数，但尽管 503，03，3 都是素数，但它不是逆向超级素数，因为它包含有零。试求100,999之间的所有逆向超级素数从小到大数的第 10 个素数是多少？#337 64.已知：f(1)=1 ，f(2)=1/(1+f(1) ，f(3)=1/(1+f(2),，f(n)=1/(1+f(n-1)，求 f(50
13、)。（按四舍五入的方式精确到小数点后第三位）。#0.618 65.台劳展开式为：Sin (X)=X/1!-X3/3!+X5/5!-X7/7!+，按台劳展开式计算当 X 取值为/5 时 Sin(X)的近似值（前 20 项）。要求：按四舍五入的方式精确到小数点后第二位。#0.59 66.一只猴子一天从山上摘来一袋桃子，从这天开始，它每天都要把袋中的桃子平分为二堆，吃掉其中的一堆，然后再从剩下的桃中拿出一个解谗，等到第 10 天，它发现袋中只有一只桃可吃啦，问猴子总共摘了多少桃。#1534 67.某一正整数，进行递减，第一次减去该数的一半再减一，以后每次都减去前一次剩下的数后再减一，直到第十次减后，
14、剩。求该数。#1534 68.数列:e(1)=e(2)=1,e(n)=(n-1)e(n-1)+(n-2)e(n-2),(n2),称为 e 数列，每一个 e(n),(n=1,2,)称为 e 数。求1 ，30000之内 e 数的个数。#8 69.数列:e(1)=e(2)=1,e(n)=(n-1)e(n-1)+(n-2)e(n-2),(n2),称为 e 数列，每一个 e(n),(n=1,2,)称为 e 数。求1 ，30000之内最大的 e 数。#16687 70.已知 Fibonacci 数列f(i)：1,1,2,3,5,8,试求 F(1)+F(2)+F(50)值。#32951280098 71.已
15、知 Fibonacci 数列f(i)：1,1,2,3,5,8,试求 F(1)+F(3)+F(5)+F(49)值。#12586269025 72.已知 Fibonacci 数列f(i)：1,1,2,3,5,8,试求 F(2)+F(4)+F(6)+F(50)值。#20365011073 73.已知 Fibonacci 数列f(i)：1,1,2,3,5,8,试求 F(45)值。#1134903170 74.斐波那契数列的前二项是 1，1，以后每一项都是前面两项之和。求 10000000 以内有多少个斐波那契数？#35 75.斐波那契数列的前二项是 1，1，其后每一项都是前面两项之和，求 100000
16、00 以内最大的斐波那契数？#9227465 76.编程求取：S=1/2+2/3+3/5+5/8+的前 30 项的和。要求：按四舍五入方式精确到小数点后第二位。#18.46 77.编程求取：S=1/2+3/5+8/13+21/34的前 30 项的和。要求：按四舍五入方式精确到小数点后第二位。 78.一个数列，它的头三个数为 0，0，1，以后的每个数都是其前三个数的和，求此数列的前 30 项之和。#18947744 79.已知:f(0)=f(1)=1,f(2)=0,f(n)=f(n-1)-2f(n-2)+f(n-3),(n2), 求 f(0)到 f(50)中的最大值.#598325 80.已知:
17、f(0)=f(1)=1,f(2)=0,f(n)=f(n-1)-2f(n-2)+f(n-3),(n2). 求 f(0)到 f(50)中的最小值.#-288959 81.已知 f(n)=f(n-1)+2f(n-2)-5f(n-3),f(0)=1,f(1)=2,f(2)=3,求 f(0)+f(1)+f(30)。#-750874 82.有一个数列，它的头三个数为 1，2，3，以后的每个数都是其前三个数的和，求此数列从第几项起大于或等于 3000。#15 83.50 个小学生按至 50 序号顺时针围成一圈，做出局游戏，老师站在圈外顺时针从第一个人数起，每数到 5 时，这人从圈里出来，继续数 1,2,3,
18、4,5,数到第 5 个学生时，他就出局，已出局的位置不再参加计数，直至所有的学生出局为止，问最后一个出局的学生序号是多少号。#19 85.计算 y=1+2/3+3/5+4/7+n/(2*n-1)(n=50), 要求：按四舍五入的方式精确到小数点后第二位。#26.47 86.当 n=100 时，计算输出下列多项式的值 S=(1-1/2)+(1/3-1/4)+(1/(2n-1)-1/(2n)按四舍五入的方式精确到小数点后第三位。#0.691 87.设 S=1+1/2+1/3+1/n，n 为正整数，求使 S 不超过 10（S10）的最大的 n。#12367 88.求 S=1*2+2*3+3*4+4*
19、5+n*(n+1)，当和大于 2000001 时退出程序，求此时的 n 的值。#181 89.求 Y=1-1/2+1/3-1/4+.+1/(2*n-1)-1/(2*n)前 30 项之和。要求：按四舍五入精确到小数点后第二位。#0.68 90.求级数 1/(1*2)+1/(2*3)+.+1/(N*(N+1)的和的近似值,直到级数中有一项的值小于 1E4 为止. 要求：按四舍五入的方式精确到小数点后第二位。#0.99 91.“水仙花数“是指这样的数，其各位数字的立方和等于该数本身，如:153=13+53+33 。编写程序，计算从 100 年开始到 2000 年为止，共有多少个年号是水仙花数年号。#
20、4 92.有一个三位数满足下列条件: (1)此三位数的三位数字各不相同; (2)此三位数等于它的各位数字的立方和。试求这种三位数共有多少个？#4 93.设有 6 个十进制数字 a,b,c,d,f,e，求满足 abcdfe=fdcba 条件的五位数 abcdf 中(a0,e0,e1)最大的一个。#21978 94.求1，1000之间能被 3 整除，且至少有一位上的数是 5 的所有数之和。#46509 95.求1，999 之间能被 3 整除，且至少有一位数字是 5 的所有正整数的个数。 #91 96.求100,10000中其各位数字之和能被 7 整除的数的个数。 #1408 proc 1 * 求
21、1108 所有整数的平方和并输出结果。#425754 set talk off clear s=0 for x=1 to 108 s=s+x*x endfor ? s set talk on return proc 2 * 求 1135 的平方根的和并输出结果。（保留小数点两位）#1051.31 set talk off clear s=0 for x=1 to 135 s=s+sqrt(x) endfor ? s set talk on return proc 3 * 求 s=1-1/2+1/3-1/4+1/5-1/6+1/99-1/100 的值（按四舍五入方式精确到小数点后 4 位）#0.
22、6882 *解法 1 set talk off clear s=0 for n=1 to 100 s=s+(-1)(n+1)/n endfor ? s set talk on return *解法 2 set talk off clear s=0 for n=1 to 100 if mod(n,2)=1 s=s+1/n else s=s-1/n endif endfor ? s set talk on return *解法 3 set talk off clear s=0 for n=1 to 100 step 2 s=s+1/n-1/(n+1) endfor ? s set talk on
23、return proc 4 * 求351,432之间所有既不能被 3 整除,又不能被 8 整除的整数的和。 #18413 set talk off clear s=0 for x=351 to 432 if mod(x,3)0 s=s+x endif endfor ? s set talk on return proc 5 * 求 1000 以内，同时能被 3 和 7 整除的所有自然数之和的平方根。（按四舍五入方式精确到小数点后第二位）。#153.91 set talk off clear s=0 for x=1 to 1000 if mod(x,3)=0 and mod(x,7)=0 s=s
24、+x endif endfor ? sqrt(s) set talk on return proc 6 * 求 1 到 1000 之内能被 7 或 11 整除，但不能同时被 7 和 11 整除的所有整数的个数。#208 set talk off clear n=0 for x=1 to 1000 if (mod(x,7)=0 or mod(x,11)=0) and not(mod(x,7)=0 and mod(x,11)=0) n=n+1 endif endfor ? n set talk on return proc 7 * 求 500 以内（含 500）能被 5 或 9 整除的所有自然数的
25、倒数之和。按四舍五入保留两位小数。#1.48 set talk off clear s=0 for x=1 to 500 if mod(x,5)=0 or mod(x,9)=0 s=s+1/x endif endfor ? round(s,2) set talk on return proc 8 * 编程序求 2+4+8+16+32+这样的数之和。如果累加数大于 9000 时，则程序终止并输出结果。#16382 set talk off clear x=1 s=0 for n=1 to 1000 x=x*2 s=s+x if s9000 exit endif endfor ? s set ta
26、lk on return proc 9 * 编程序求出 1-100 以内的能被 3 整除的数的平方和。#112761 set talk off clear s=0 for x=3 to 100 step 3 s=s+x*x endfor ? s set talk on return proc 10 * 编程序求出 1-4000 以内能被 3 或者 11 整除的数的个数。#1575 set talk off clear n=0 for x=1 to 4000 if mod(x,3)=0 or mod(x,11)=0 n=n+1 endif endfor ? n set talk on retur
27、n proc 11 * 编程序求出 1 到 4000 之间的能被 5 整除的前若干个偶数之和，当和大于 400 时退出并输出结果。#450 set talk off clear s=0 for x=10 to 4000 step 10 s=s+x if s400 exit endif endfor ? s set talk on return proc 12 * 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 exit endif endfor ? n-1 set talk
28、 on return proc 13 * 已知 S=2+(2+4)+(2+4+8)+(2+4+8+16)+，求 S6000 的 S 的最小值。#8166 *解法 1 set talk off clear x=1 s=0 t=0 for n=1 to 1000 x=x*2 t=t+x s=s+t if s6000 exit endif endfor ? s set talk on return *解法 2 set talk off clear x=1 s=0 t=0 do while s=20 and (mod(s,17)=0 or mod(s,35)=0) k=k+1 endif endfor
29、 ? k set talk on return proc 17 * 当 n=20 时，求 S=1+(1+20.5)+(1+20.5+30.5)+(1+20.5+30.5+n0.5)的值。要求：按四舍五入的方式精确到小数点后第二位。#534.19 set talk off clear s=0 t=0 for n=1 to 20 t=t+sqrt(n) s=s+t endfor ? s set talk on return proc 18 * 当 n 的值为 25 时，计算下列公式的值 s=1+1/1!+1/2!+1/3!+1/n!要求：按四舍五入的方式精确到小数点后第四位。#2.7183 set
30、 talk off clear s=1 t=1 for n=1 to 25 t=t/n s=s+t endfor ? s set talk on return proc 19 * 当 n 的值为 50 时，求 S 的值。S=1+1/(1+2)+1/(1+2+3)+1/(1+2+3+N) 要求：按四舍五入的方式精确到小数点后第四位。#1.9608 set talk off clear s=0 t=0 for n=1 to 50 t=t+n s=s+1/t endfor ? s set talk on return proc 20 * 老王和他的孙子年龄之差为 60 岁,都出生于 20 世纪, 两
31、人的出生年份分别被 3, 4, 5 和 6 除, 余数均为 1, 2, 3 和 4。问老王出生在哪一年?#1918 set talk off clear for n=1900 to 2000-60 if mod(n+2,60)=0 ? n endif endfor set talk on return proc 21 * 爱因斯坦走台阶:有一台阶, 如果每次走两阶,最后剩一阶; 如果每次走三阶,最后剩两阶;如果每次走四阶,最后剩三阶;如果每次走五阶 ,最后剩四阶; 如果每次走六阶 ,最后剩五阶;如果每次走七阶,刚好走完.求此第三小的台阶数是多少？#959 set talk off clear
32、n=0 for x=1 to 100000000 if mod(x+1,60)=0 and mod(x,7)=0 n=n+1 if n=3 ? x exit endif endif endfor set talk on return proc 22 * 从 100 米高度落下一球,每次落地后反弹高度为上一次下落高度的 3/4,求该球第 10 次落地时,前后所经过的路径长度.#654.95 set talk off clear h=100 s=h for n=2 to 10 h=h*3/4 s=s+2*h endfor ? round(s,2) set talk on return proc 2
33、3 * 设某国今年的国民生产总值为 45600 亿元,若今后每年以 9%的增长率增长,计算多少年后能实现国民生产总值翻一番?#9 set talk off clear x=1 for n=1 to 1000 x=x*1.09 if x=2 ? n exit endif endfor set talk on return proc 24 * 编写程序，求一正整数等差数列的前 6 项的和，该数列前四项之和是 26，四项之积是 880。#57 set talk off clear for a1=1 to 26 for d=1 to 26 a2=a1+d a3=a2+d a4=a3+d a5=a4+d
34、 a6=a5+d if a1+a2+a3+a4=26 and a1*a2*a3*a4=880 ? 26+a5+a6 return endif endfor endfor set talk on return proc 25 * 编写程序，求一正整数等差数列的前五项的立方和，该数列前四项之和是 26、之积是 880。#4720 set talk off clear for a1=1 to 26 for d=1 to 26 a2=a1+d a3=a2+d a4=a3+d a5=a4+d if a1+a2+a3+a4=26 and a1*a2*a3*a4=880 ? a1*a1*a1+a2*a2*a
35、2+a3*a3*a3+a4*a4*a4+a5*a5*a5 return endif endfor endfor set talk on return proc 26 * 今有 5 羊 4 犬 3 鸡 2 兔值钱 1496，4 羊 2 犬 6 鸡 3 兔值钱 1175，3 羊 1 犬 7 鸡 5 兔值钱 958，2 羊 3 犬 5 鸡 1 兔值钱 861，求羊值多少钱？#177 (、121、23、29 ) * 5x+4y+3z+2w=1496 * 4x+2y+6z+3w=1175 * 3x+ y+7z+5w= 958 * 2x+3y+5z+ w= 861 set talk off clear f
36、or x=1 to int(1496/5) for y=1 to int( 861/3) for z=1 to int( 958/7) w=861-(2*x+3*y+5*z) if 5*x+4*y+3*z+2*w=1496 and 4*x+2*y+6*z+3*w=1175 and 3*x+ y+7*z+5*w= 958 ? x,y,z,w return endif endfor endfor endfor set talk on return proc 27 * 求方程 X2-3*X+1=0 在区间(0,1)内的解。要求：按四舍五入的方式精确到小数点后第二位。#0.38 * 算法说明：求近似解
37、。问题转化为：求区间(0,1)内使 y=X2-3*X+1 的绝对值最小的 x。 set talk off clear y0=1 for x=0.001 to 0.999 step 0.001 y=abs(X2-3*X+1) if y0y y0=y x0=x endif endfor ? x0 set talk on return proc 28 * 求方程 X3-2X-5=0 在区间1.5,2.5上的一个实根。 要求：按四舍五入的方式精确到小数点后第二位。#2.09 *解法 1 set talk off clear y0=1000 &随意设置一个较大的值 for x=1.5 to 2.11 s
38、tep 0.00001 y=abs(X3-2*X-5) if y0y y0=y x0=x endif endfor ? x0 set talk on return 解法 2 set talk off clear a=1.5 b=2.5 fa=a3-2*a-5 fb=b3-2*b-5 do while abs(a-b)=0.00001 c=(a+b)/2 fc=c3-2*c-5 if fa*fc0 a=c fa=fc else b=c fb=fc endif enddo ? round(c,2) return proc 29 * 自然数对是指两个自然数的和与差都是平方数，如 8 和 17 的和
39、8+17=25 与其差 17-8=9都是平方数，则称 8 和 17 是自然数对（8，17）。假定（A，B）与（B，A）是同一个自然数对且假定 A=B，求所有小于或等于 100（即：Ac and mod(a+b+c,3)=0 n=n+1 endif endfor endfor ? n set talk on return proc 41 * 有 20 个学生一起买小吃，共花钱 50 元，其中每个大学生花 3 元，每个中学生花 2 元，每个小学生花 1 元，问大、中、小学生的人数分配共有多少种不同的解（去掉某类学生为0 的解）？#4 set talk off clear n=0 for x=1 t
40、o 20 for y=1 to 20 for z=1 to 20 if x+y+z=20 and 3*x+2*y+z=50 n=n+1 endif endfor endfor endfor ? n set talk on return proc 42 * 找满足以下条件: X2+Y2+Z2=252 且 X+Y+Z 之值最大的三个正整数 X,Y,Z, 求 X+Y+Z 之值.#43 set talk off clear maxs=0 for x=1 to 25 for y=x to 25 for z=y to 25 if x*x+y*y+z*z=25*25 maxs=max(maxs,x+y+z)
41、 endif endfor endfor endfor ? maxs set talk on return proc 43 * 把 50 元钱分成一元、二元和五元的纸币且纸币数共为 20 张的分法有多少种？（注：在兑换中一元、二元、五元的纸币数可以为 0）。#4 set talk off clear n=0 for x=0 to 20 for y=0 to 20 for z=0 to 20 if x+y+z=20 and 5*x+2*y+z=50 n=n+1 endif endfor endfor endfor ? n set talk on return proc 44 * 求方程 8x-5
42、y=3,在|x| y z), 则（x,y,z）称为方程的一个解。试求方程的整数解（包括负整数解）的个数。 #62 set talk off clear n=0 for x=-55 to 55 for y=-55 to x-1 for z=-55 to y-1 if x*x+y*y+z*z=55*55 ?x,y,z n=n+1 endif endfor endfor endfor ? n set talk on return proc 47 * 若有三个正整数 a、b、c 满足 a2+b2=c2，则 a，b，c 称为勾股数组，编一程序，问有多少个三个数均小于 50（含 50）的勾股数组(注意:a
43、,b,c 不能为 0)。#40 set talk off clear n=0 for a=1 to 50 for b=1 to 50 for c=1 to 50 if a*a+b*b=c*c ? a,b,c n=n+1 endif endfor endfor endfor ? n set talk on return proc 48 * 倒勾股数是满足公式： 1/A2+1/B2=1/C2 的一组正整数（A，B，C），例如，（156，65，60）是倒勾股数，因为：1/1562+1/652=1/602。假定 ABC，求 A，B，C 之和小于 100 的倒勾股数有多少组？#2 set talk of
44、f clear n=0 for a=1 to 99 for b=1 to a-1 for c=1 to b-1 if a*a*c*c+b*b*c*c=a*a*b*b and a+b+c100 ? a,b,c n=n+1 endif endfor endfor endfor ? n set talk on return proc 49 * 编写程序，求共有几组 I,j,k 符合算式 ijk+kji=1534,其中 I,j,k 是0,9之间的一个整数。#2 set talk off clear n=0 for i=0 to 9 for j=0 to 9 for k=0 to 9 if (i*100+j*10+k)+(k*100+j*10+i)=1534 ? (i*100+j*10+k),(k*100+j*10+i) n=n+1 endif endfor endfor endfor ? n
