《VF改错题期末考试程序题库(答案).pdf》由会员分享，可在线阅读，更多相关《VF改错题期末考试程序题库(答案).pdf（36页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、1 ”求出 10,1000 内所有能被7 和 9 中至少一个数整除的整数的个数。236set talk offclearn=0for x=10 to 1000if mod(x,7)=0 and mod(x,9)=0&and 改为 orn=n+x&改为：n=n+lendifendfor?nset talk onreturn2”求出 10,1000 内所有能同时被7 和 9 整除的整数之和。7560set talk offclears=0for x=10 to 1000if mod(x,7)=0 and mod(x,9)=0s=x+l&改为：s=s+xendifendfor?x&改为：？sset
2、talk onreturn3”求出 10,1000 内所有能被6 整除但不能被9 整除的整数之和。55440set talk offclears=0for x=10 to 1000if mod(x,6)=0 or mod(x,9)!=0&改为 or 为 andX=S+X&改为：S=S4-Xendifendfor?sset talk onreturn4 求出 10,1000 内所有能被6 和 9 中的一个且只有一个数整除的整数的个数。165set talk offclearn=0for x=10 to 1000if mod(x,6)=0 and mod(x,9)!=0 and mod(x,6)!
3、=0 and mod(x,9)=0*上式改为：if(mod(x,6)=0 and mod(x,9)!=0)or(mod(x,6)!=0 and mod(x,9)=0)n=x&改为：n=n+lendifendfor?nset talk onreturnii5”求出 100,800 内所有既不能被5 整除也不能被7 的整数的个数。480set talk offclearn=0for x=100 to 800if mod(x,5)=0 and mod(x,7)0&if mod(x,5)0 and mod(x,7)o0n=x+1&改为：n=n+lendifendfbr?nset talk onretu
4、rn“6 求 出 101,299 内所有能被2 整除但不能同时被3 和 5 整除的整数之和。18630set talk offclears=0for x=101 to 299if mod(x,2)=0 and not(mod(x,3)=0 or mod(x,5)=0)&改为：if mod(x,2)=0 and mod(x,15)0 x=s+x&改为：s=s+xendifendfbr?sset talk onreturnexit语句7 求 出 100以内最大的自然数n,使得从1 开始的连续n 个自然数的倒数之和小于3.5。18set talk offclears=0for n=l to 100s
5、=(s+l)/n&改为:s=s+l/nifs=3.5loop&改为：exitendifendfor?n-1set talk onreturn8 求 出 100以内最小的自然数n,使 得 从 1 开始的连续n 个自然数的倒数之和大于3.6。(21)set talk offclears=0for n=l to 100s=s+1/nifs3.6loop&改为：exitendifendfor?n-1&改为：？nset talk onreturn9 求 出 100以内最大的自然数n,使得从1开始的连续n 个自然数的平方和小于5000。24set talk offclears=0for n=l to 10
6、0s=s+n*2&改为：s=s+n*2ifs=5000exitendifendfor?n&改为：？n-lset talk onreturn1 0 求 出 100以内最小的自然数n,使得从1开始的连续n 个自然数的平方之和大于5500。(25)set talk offclears=0for n=l to 100s=s+n*nifs5500loop&改为：exitendifendfor?s&改为：？nset talk onreturnii11求 出 100以内最大的自然数n,使得从1开始的连续n 个自然数的立方和小于 20000。16set talk offclears=0for n=l to 1
7、00s=s+n*3&改为：s=s+nA3if s=20000exitendifendfbr?n&改为：？nlset talk onreturn12求 出 100以内最小的自然数n,使得从1 开始的连续n 个自然数的立方之和大于30000。(19)set talk offclears=0for n=l to 100s=s+n*n*3&改为：s=s+nA3ifs30000exitendifendfbr?s&改为：？nset talk onreturn13 求出5 0 以内最大的白然数n,使得从102开始的连续n 个偶数之和小于3000。23set talk offclears=0for n=1 t
8、o 50a=100+2*ns=s*a&改为：s=s+aifs=3000loop&改为：exitendifendfor?n-1set talk onreturnii14”求出50以内最小的自然数n,使得从102开始的连续n 个偶数之和大于2000。17set talk offclears=0for n=1 to 50a=102+2*n&改为：a=100+2*ns=s+aifs2000loop&改为：exitendifendfbr?nset talk onreturnI115”求出5 0 以内最大的自然数n,使得从101开始的连续n 个奇数之和小于2000。17set talk offclears
9、=0for n=1 to 50a=99+2*ns=s+aifs=2000exitendifendfor?n&改为：？n-lset talk onreturn16”求出5 0 以内最小的自然数n,使得从101开始的连续n 个奇数之和大于3000。25set talk offclears=0for n=1 to 50a=99+2*ns=s+aifs3000loop&改为：exitendifendfbr?s&改为：？nset talk onreturnii17”求 出 100以内使得算式l*2+2*3+n*(n+l)的值小于5000的最大的自然数n。23set talk offclears=0for
10、 n=l to 100a=n*(n+l)s=s+aifs=5000exitendifendfbr?n&改 为:?n-lset talk onreturnI)18”求 出 100以内使得算式l*2+2*3+n*(n+l)的值大于6000的最小的自然数n。26set talk offclears=0for n=1 to 100a=n*(n+l)s=s+aifs=6000exitendifendfbr?n-1&改为：？nset talk onreturn19 求 出 100以内使得算式1*3+2*5+n*(2*n+1)的值小于10000的最大的自然数n。23set talk offclears=0f
11、or n=l to 100a=n*2*(n+l)&改为：a=n*(2*n+l)s=s+aifs=10000loop&改为：exitendifendfor?n-lset talk onreturn20”求 出 100以内使得算式l+(l+2)+(1+2+n)的值小于1000的最大的自然数n。17set talk offclears=0t=0for n=l to 100s=s+nt=t+n&改为：t=t+sif t 1000exitendifendfor?n&改为：？nlset talk onreturnit21 求 出 100以内使得算式1+(1+2)+(1+2+n)的值大于1500的最小的自然
12、数n。20set talk offcleart=0*增加：s=0for n=l to 100s=t+n&改为：s=s+nt=s+n&改为：t=t+sift1500exitendifendfor?nset talk onreturn22 求 出 100以内使得算式l/(l*2)+l/(2*3)+l/(n*(n+l)的值小于0.952的最大的自然数 n。19set talk offclears=0for n=l to 100s=s+l/n*(n+l)&改为：s=s+l/(n*(n+l)ifs=0.952exitendifendfbr?n&改为：？n-lset talk onreturnii23”求
13、 出 100以内使得算式l/(l*l)+l/(2*3)+l/(n*(2nl)的值大于1.35的最小的自然数no 14set talk offclears=0for n=l to 100a=n*(2*n-l)s=s+a&改为：s=s+l/aif s 1.35loop&改为：exitendifendfbr?nset talk onreturnII24”求 出 100以内的最大的自然数n,使得算式1+1/(1+2)+1/(1+2+n)的值小于 1.9o 18set talk offclears=0t=0for n=l to 100s=s+l/n&改为：s=s+nt=t+l/sift=1.9loop&
14、改为：exitendifendfor?n-lset talk onreturn25 求 出 100以内使得算式1+1/(1*2)+l/(l*2*n)的值大于1.71828的最小的自然数no 9set talk offcleara=1.00000000s=0.00000000for n=1 to 100a=a/n&改为：a=a*ns=s+a&改为：s=s+l/aifs=1.71828loop&改为:exitendifendfor?nset talk onreturnii26”求 出 100以内最大的奇数n 使得算式(11/2)+(1/3-1/4)+(l/nl/(n+l)的值小于 0.68。35s
15、et talk offclears=0for n=l to 100 step 2a=l/n-l/(n+l)s=s+aifs0.68exitendifendfor?n&改为：?n-2set talk onreturn27”求 出 100以内使算式(1-1+(l/3l/4)+(l/nl/(n+l)的值大于0.682的最小的奇数no 45set talk offclears=0for n=l to 100&改为：for n=1 to 100 step 2a=l/n-l/(n+l)s=s+aifs=0.682exitendifendfor?nset talk onreturn28”某国在2000年时人
16、口总数为1亿，若以每年3%的速度递增，试求出至少要到哪一年该国人口总数才会翻一翻。2024set talk offclears=lfor n=2001 to 2100s=s*1.03ifs=2&改为：ifs=2loop&改为：exitendifendfbr?nset talk onreturn29”某国今年的人口总数为1亿，若以每年4%的速度递增，试求出至少要再过儿年该国人口总数才会翻一翻。18Set talk offclears=0&改为：s=lfor n=l to 100s=s*1.04if s=2exitendifendfbr?nset talk onreturnH30 设等比数列：1,
17、2,4,8,。求使得此数列的前n 项之和大于100000的最小的自然数n。17set talk offcleara=ls=l&改为：s=0for n=l to 100s=s+aifs100000exitendifa=2+a&改为：a=2*aendfor?nset talk onreturnii31”设等比数列：1,2,4,8,。求使得此数列的前n 项之和小于150000的最大的自然数n。17set talk offcleara=1s=0for n=l to 100s=s+aif s=150000exitendifa=a+n&改为：a=2*aendfor?n&改为：n=n-lset talk o
18、nreturnI 132 设等比数列：1,3,9,27,-o 求使得此数列的前n 项之和大于2345678的最小的自然数n。14set talk offcleara=ls=0for n=l to 100s=s*a&改为：s=s+aifs2345678exitendifa=3+a&改为：a=3*aendfor?nset talk onreturni(33”设等比数列：1,3,9,27,-o 求使得此数列的前n 项之和小于3456789的最大的自然数n。14set talk offcleara=ls=0for n=l to 100s=s*a&改为：s=s+aifs3456789loop&改为：ex
19、itendifa=3*aendfbr?n-lset talk onIeturnii34”求出45678的所有非平凡因子(即除1和它本身以外的约数)中奇数的个数。7set talk offcleara=45678n=0for b=3 to a step 2if mod(b,a)=0&改为：if mod(a,b)=0n=n+lendifendfor?b&改为：？nset talk onreturnII35 求出203267的所有真因子(即小于它本身的约数)中最大的。6557set talk offcleara=203267for b=l to a-1if mod(a,b)=0max=a&改为：ma
20、x=bendifendfor?b&改为：？maxset talk onreturni(36”求出233479的所有真因子(即小于它本身的约数)中最大的。8051set talk offcleara=233479for b=2 to a&改为：for b=l to a-1if mod(a,b)=0max=a&改为：max=bendifendfor?maxset talk onreturnii37”求出20677和 42067的最大公约数。713set talk offcleara=20677b=42067for d=l to b&改为：for d=l to aif mod(a,d)=0 and
21、mod(b,d)=0max=b&改为：max=dendifendfor?maxset talk onreturnI 138 求出559399的所有非平凡因子(即除1和它本身以外的约数)中最小的。73set talk offcleara=559399for n=2 to a&改为：for n=2 to a-1if mod(a,n)=0loop&改为：exitendifendfor?a&改为：nset talk onreturn3 9 号求出179869和 196037的最大公约数。2021set talk offcleara=179869b=196037for d=2 to aif mod(d,
22、a)=0 and mod(d,a)=0&改为：if mod(a,d)=0 and mod(b,d)=0c=max(a,b)&改为：c=dendifendfor?cset talk onreturnii40”求前 1,100 内能被6 或 8 整除的所有自然数的平方根的和(将第1位小数四舍五入，结果只保留整数)。162set talk offclears=0for n=l to 100if mod(n,6)=0 and mod(n,8)=0&改为：if mod(n,6)=0 or mod(n,8)=0s=sqrt(s+n)&改为：s=s+sqrt(n)endifendfor?round(s,0)
23、set talk onreturnI)41”已知数列 f(n)：f(l)=l,f(2)=4,当 n=3,4,5,时,f(n)=3*f(nl)f(n2)。试求出 100以内最小的自然数n 使得此数列的第n 项大于7654321。17set talk offcleardimension f(100)f(D=lf(2)=4for n=3 to 100f(n)=3*f(n-l)-f(n-2)iff(n)=7654321loop&改为：exitendifendfor?nset talk onreturn42”求 出 100以内最小的自然数n,使得从1 开始的连续n 个自然数的立方之和大于88888o 2
24、4set talk offclears=0for n=l to 100a=n*3&改为：a=nA3s=s+aifs88888exitendifendfbr?a&改为：nset talk onreturn43 求 出 100以内最大的自然数n,使得从1开始的连续n 个自然数的立方之和小于99999o 24set talk offclears=0for n=l to 100s=s+n*n*nif s=99999exitendifendfbr?n&改为：set talk onreturnI 144 一球从100米高处落至平地，并旦连续多次再反弹再落下，假设每次反弹的高度都是前一高度的3/4倍，试求出
25、最小的自然数n,使得此球从开始下落至第n 次着地时在垂直方向所经过的总路程超过678米。13set talk offclearh=100s=0&改为：s=100for n=2 to 100h=h*3/4s=s+h&改为：s=s+2*hifs678exitendifendfor?nset talk onreturn45”一球从100米高处落至平地，并且连续多次再反弹再落下，假设每次反弹的高度都是前一高度的3/4倍，试求出最大的自然数n,使得此球从开始下落至第n 次着地时在垂直方向所经过的总路程不超过590米。6set talk offclearh=100s=0&改为：s=100for n=l t
26、o 100h=3/4*hs=s+2*hifs=590exitendifendfor?nset talk onreturnii回文数46”回文数指的是正读和反读都一样的一串字符,如121、1221。试求出 1421,4112 内所有回文数的和。74250set talk offclears=0for x=1421 to4H2a=x/1000&改为：a=int(x/1000)b=int(x-a*1000)/100)c=int(x-a*1000-b*100)/10)d=x-a*1000-b*100-c*10if a=d and b=cs=s*x&改为：s=s+xendifendfor?sset ta
27、lk onreturn47 回文指的是正读和反读都一样的一串字符,如121、1221。试求出 1234,9876 内回文数的个数。85set talk offclearn=0for x=1234 to 9876a=int(n/1000)&改为：a=int(x/1000)b=int(x-a*1000)/100)c=int(x-a*1000-b*100)/10)d=x-a*1000-b*100-c*10if a=b and c=d&改为:if a=d and c=bn=x+l&改为：n=n+lendifendfbr?nset talk onreturn48”求出 123,789 内至少有两个数字相
28、同的数的个数。180set talk offclearn=0for x=123 to 789a=int(x/100)b=int(x-a)/10)&改为：b=int(x-a*100)/10)c=x-a-b&改为：c=x-a*100-b*10if a=b or a=c or b=cn=n+lendifendfor?nset talk onreturn49”求出 123,321 内恰好有两个数字相同的数的个数。45set talk offclearn=0for x=123 to 321a=int(x/100)b=int(x-a*100)/10&改为：b=int(x-a*100/)10)c=x-a*l
29、00-b*10if a=b and a o c or ao b and a=c*上句改为：if(a=b and aoc)or(aob and a=c)or(c=b and a o b )n=n+lendifendfbr?nset talk onreturnI!50 求出 123,456 内恰好有两个数字相同的所有整数之和。26406set talk offclears=0for x=123 to 456a=int(x/100)b=int(x-a*100)/10)c=mod(x,10)if a=b and a!=c or a!=b and a=c*上句改为：if(a=b and aoc)or(a
30、ob and a=c)or(c=b and a o b )S=S+1&改为：s=s+xendifendfor?sset talk onreturn51”求在 10(),999 内所有不含数字0 且各位数字之积被96整除的数之利。26640set talk offclears=0for x=100 to 999a=int(x/100)b=int(x-a*100)/10)c=mod(x,l)&改为：c=mod(x,10)if mod(a*b*c,96)=0&改为：if mod(a*b*c,96)=0 and a*b*c!=0s=s+xendifendfor?sset talk onreturn52
31、”求在 100,999 内所有不含数字0 且各位数字之和被14整除的数之和。31080set talk offclears=0for x=100 to 999a=int(x/100)b=int(x-a*100)/10)c=x-a*100-b*10if mod(a+b+c,14)=0&改为：if mod(a+b+c,14)=0 and a*b*c!=0s=x&改为：s=s+xendifendfor?sset talk onreturnii53”求出 100,600 内被除3 余 2 并且被除5 余 3 的整数的个数。33set talk offclearn=0for x=100 to 600if
32、 mod(x,3*5)=2*3&改为：if mod(x,3)=2 and mod(x,5)=3n=x+1&改为:n=n+lendifendfbr?nset talk onreturn54”求出 200,800 内被除3 余 1并且被除5 余 3 的整数的和。20020set talk offclears=0for x=200 to 800if mod(x,3)=l or mod(x,5)=3&改为:if mod(x,3)=l and mod(x,5)=3s=s+xendifendfbr?x&改为：?sset talk onreturnir55”求出 1234,6789 内中间两位数字之和等于首
33、尾两位数字之积的数的个数。175set talk offclearn=0for x=1234 to 6789a=int(x/1000)b=int(x-a*1000)/100&改为：b=int(x-a*1000)/100)c=int(x-a*1000-b*100)/10&改为：c=int(x-a*1000-b*100)/10)d=x-a*1000-b*100-c*10if b+c=a*dn=n+lendifendfor?nset talk onreturn完全平方数*56”若一个自然数恰好等于某个整数的平方，则称此数为完全平方数。如 144是完全平方数，因为它等于12的平方。求 1000,300
34、0 内所有完全平方数的和。43539set talk offclears=0for x=1000 to 3000y=sqrt(x)&改为：y=int(sqrt(x)if x=y*ys=s+xendifendfor?x&改为：sset talk onreturn57”已知数列：1、2、4、7、10、15、，其特点是：相邻两项之差恰好构成自然数列：1、2、3、4、5、。求此数列的前100项中能被4 整除的项的个数。25set talk offcleara=lk=0for n=l to 100&改为:for n=1 to 99a=a+nif mod(n,4)=0&改为：if mod(a,4)=0k=
35、k+lendifendfor?kset talk onreturn58”已知数列：1、2、4、7、11、16、，其特点是：相邻两项之差恰好构成自然数列：1、2、3、4、5、。求此数列的前100项中能被4 整除的项之和。41700set talk offcleara=ls=l&改为：s=0for n=0 to 99&改为：for n=l to 99a=a+nif mod(a,4)=0s=s+n&改为:s=s+aendifendfbr?sset talk onreturn数组或递推59”已知数列 靛1 1):以)=11(2)=1,当 112时长1)=文 2)+411-1)。试求此数列的第15项至第
36、25项 共 11项之和。195431set talk offcleardimension f(25)f(D=lf(2)=ls=0for n=3 to 25f(n)=f(n-2)+f(n-l)ifn=15s=f(n)&改为：s=s+f(n)endifendfbr?sset talk onreturn60”已知数列f(n):f(l)=l,f(2)=l,当 n2时 f(n)=3*f(n2)f(nl)。试求此数列的前2 0 项中所有正数项之和。343371set talk offcleardimension f(20)f(D=lf(2)=ls=0for n=3 to 20f(n)=3*f(n-l)-f
37、(n-2)&改为：f(n)=3*f(n-2)-f(n-l)iff(n)0s=s+f(n)endifendfbr?s&改为：？S+f(l)+f(2)set talk onreturn勾股弦61”对自然数A、B、C,若 AvBvC且 A*A+B*B=C*C,则称 A,B,C 为一组勾股弦数,其中A、B、C 分别称为勾、股、弦。试求出弦为25000的勾股弦数组的个数。5set talk offclearc=25000n=l&改为：n=0for a=l to cb=i nt(sqrt(c*c-a*a)if a*a+b*b=c*c&改为：if a*a+b*b=c*c and ab and 0an=n+a
38、&改为：n=n+lendifendfbr?nset talk onreturnii62”对自然数A、B、C,若 AvBvC且 A*A+B*B=C*C,则称 A,B,C 为一组勾股弦数,其中A、B、C 分别称为勾、股、弦。试求出弦为1300的勾股弦组数。7set talk offclearc=1300n=0for a=l to cbl=sqrt(c*c-a*a)b=int(bl)if b=bl&改为：if b=b 1 and ab and acn=n+b&改为：n=n+lendifendfbr?nset talk onreturn方程63”求方程3x-7y=l在条件IxIvlOO且lylv40下
39、的整数解的个数。26set talk offclearn=0for x=-99 to 99y=int(3*x-l)/7)if 3*x-7*y=l or abs(y)40&改为：if3*x 7*y=l and abs(y)40n=n+x&改为：n=n+lendifendfor?nset talk onreturn64”求方程3x7y=l在条件IxIvlOO且lylv40下的所有整数解的Ixl+lyl的最大值。127set talk offclearmax=140&改为：max=0for x=-99 to 99y=int(3*x-l)/7)z=abs(x)+abs(y)if 3*x-7*y=l a
40、nd abs(y)z*上句改为：if 3*x-7*y=l and abs(y)40 and maxzmax=zendifendfor?z&改为：？maxset talk onreturn65”求方程3x-7y=l在条件IxIvlOO且lyl40下的所有整数解的Ixl+lyl的最小值。3set talk offclearmin=0&改为：min=140for x=-99 to 99y=int(3*x-l)/7)z=abs(x+y)&改为：z=abs(x)+abs(y)if 3*x-7*y=l and abs(y)40 and minz*上句改为：if 3*x7*y=l and abs(y)zmi
41、n=z*?x,y,zendifendfbr?minset talk onreturnii66”求方程4x+9y=1000的正整数解的个数。27set talk offclearn=0for x=l to 250y=int(1000-4*x)/9)if 4*x+9*y=1000&改为：if 4*x+9*y=1000 and y0n=n+x&改为：n=n+1endifendfor?nset talk onreturnII67”求方程9x+4y=1000的所有正整数解的Ix-yl的最大值。237set talk offclearmax=0for x=1 to 230y=int(l 000-9*x)/
42、4)z=abs(x-y)if 9*x+4*y=1000 and y0 and maxz*上句改为：if 9*x+4*y=1000 and y0 and max0 and minzmin=zendifendfor?minset talk onreturnii69”已知数列 f(n)：f(l)=l,f(2)=4,当 n=3,4,5,时,f(n)=3*f(n-l)-f(n-2)o 试求出 100以内最大的自然数n 使得此数列的第n 项小于5364321Q 16set talk offcleardimension f(100)f(D=lf(2)=4for n=3 to 100f(n)=3*f(n-l)
43、-f(n-2)iff(n)5364321loop&改为：exitendifendfbr?n&改为：?n-lset talk onreturnII70 已知数列 f(n)：f(l)=l,f(2)=4,当 n=3,4,5,时,f(n)=3*f(n-l)-f(n-2)o 试求出 100以内最大的自然数n 使得此数列的前n 项之和首次大于7536432k 19set talk offcleardimension f(100)f(D=lf(2)=4s=0for n=3 to 100f(n)=3*f(n-l)-f(n-2)s=s+f(n)if s75364321loop&改为：exitendifendfo
44、r?nset talk onreturn71 7 知数列 f(n)：f(l)=l,f(2)=3,当 n=3,4,5,时，f(n)=f(nl)f(n2)。试求出 100 以内最大的自然数n 使得此数列的前n 项之和第3 次等于Oo(18)set talk offcleardimension f(100)f(D=lf(2)=3s=f(l)+f(2)t=l&改为：t=0for n=3 to 20f(n)=f(n-l)-f(n-2)s=s+f(n)ifs=Ot=t+lift=3loop&改为：exitendifendifend for?nset talk onreturn72 已知数列 f(n)：f(
45、l)=l,f(2)=3,当 n=3,4,5,时，f(n)=f(n-l)-f(n-2)o 试求出 100 以内最大的自然数n 使得此数列的前n 项之和第5 次等于5。(28)set talk offcleardimension f(100)f(D=lf(2)=3s=0&改为：s=f(l)+f(2)t=0for n=3 to 100f(n)=f(n-l)-f(n-2)s=s+f(n)if s=5t=t+s&改为：t=t+lift=5exitendifendifendfbr?nset talk onreturn73”对自然数A、B、C,若 AvBC且 A*A+B*B=C*C,则称 A,B,C 为一组
46、勾股弦数，其中 A、B、C 分别称为勾、股、弦。试求出弦为2500的勾股数组的个数。(4)set talk offclearc=2500n=0for a=l to cb=int(sqrt(c*c-a*a)if a*a+b*b=c*c&改为：加上 andavb and bcn=n+lendifendfbr?nset talk onreturn7 4 对自然数A、B、C,若 ABC且 A*A+B*B=C*C,则称 A,B,C 为一组勾股弦数，其中 A、B、C 分别称为勾、股、弦。试求出弦为2500的勾股数组中A+B+C 的值最大为多少？。(6000)set talk offclearc=2500m
47、ax=0for a=l to cb=int(sqrt(c*2-a*2)&改为：(c八 2-a八 2)if a*a+b*b=c*c and ab&改为：加上 and ba+b+c&改为：if maxva+b+cmax=a+b+cendifendifendfor?maxset talk onreturn75”对自然数A、B、C,若 AvBC且 A*A+B*B=C*C,则称 A,B,C 为一组勾股弦数，其 中A、B、C 分别称为勾、股、弦。试求出弦为25000的勾股数组中A+B+C 的值最小为多少？。(51824)set talk offclearc=25000min=c*5for a=l to c
48、b=i nt(sqrt(c*c-a*a)if a*a+b*b=c*c&改为：加上 ab and ba+b+cmin=a+b+cendifendifendfbr?minset talk onreturn7 6 对自然数A、B、C,若 AvBvC且 A*A+B*B=C*C,则称 A,B,C 为一组勾股弦数，其中 A、B、C 分别称为勾、股、弦。试求出弦为 1,100 内符合条件的数有多少组？(52)set talk offclearn=l&改为：n=0for c=l to 100for a=l to cb=int(sqrt(c*c-a*a)if a*a+b*b=c*c&改为：加上 ab and t
49、xcn=n+a&改为：n=n+lendifendfbrendfbr?nset talk onreturn7 7 对自然数A、B、C,若 AvBvC且 A*A+B*B=C*C,则称 A,B,C 为一组勾股弦数，其中 A、B、C 分别称为勾、股、弦。试求出弦为 100,300 内符合条件的数有多少组？(63)set talk offclearn=0for a=100 to 300for b=1 to 300for c=1 to 300if a*a+b*b=c*c&改为：加上 ab and bcn=n+a+b+c&改为：n=n+lendifendfbrendforendfbr?ns e t t a
50、l k o nr e t u r n7 8编写程序，计算1 0 0 0 0以内有多少个这样的数，其个位数为6且该数能被9整除。(1 1 1)s e t t a l k o f fc l e an=l&改为：n=0f o r i=l t o 1 0 0 0 0i f m o d(i,6)=0&改为：i f m o d(i,1 0)=6i f m o d(i,1 0)=9&改为：i f m o d(i,9)=0n=n+le n d i fe n d i fe n d f o r?nr e t u r n7 9 ”编写程序，计 算1 0 0 0 0以内个位数为6且该数能被9整除的所有数之和。(5 5