一、改错题 1. 求10,1000内所有能被被7和9中最少一个数整除整数之个数。* skgc1.prg set talk offclears=0 &s=0改为n=0for x=10 to 1000 if mod(x,7)=0 and mod(x,9)=0 & and改为or n=n+x & n=n+x改为n=n+1 endifendfor? x & x改为nset talk onreturn & 成果为: 2362. 求10,1000内所有能同时被7和9整除整数之和。set talk offclears=0 for x=10 to 1000 if mod(x,7)=0 and mod(x,9)=0 s=x & s=x改为s=s+x endifendfor? x & x改为sset talk onreturn & 成果为：75607.求100以内最大自然数n，使得从1开始连续n个自然数倒数之和小于3.5。 * * skgc7.prgset talk offclears=0for n=1 to 100s=s+1/n & s=(s+1)/n 改为 s=s+1/nif s=3.5exit & loop 改为 exitendifendfor? n-1set talk onreturn & 成果为：189. 求100以内最大自然数n，使得从1开始连续n个自然数平方和小于5000。set talk offclears=0for n=1 to 100s=s+n*2 & 改为s=s+n*2if s=5000exitendifendfor? n & 改为 ? n-1set talk onreturn& 成果为：2416. 求出50以内最小自然数n，使得从101开始连续n个奇数之和不小于3000。set talk offclears=0for n=1 to 50 a=101+2*n & a=101+2*n 改为 s=s+99+2*n s=s+a & 去掉 s=s+a if s3000 exit endifendfor? s & ? s 改为 ? nset talk onretur& 成果为：2517. 求出100以内使得算式1*2+2*3+n*(n+1)值小于5000最大自然数n。set talk offclears=0for n=1 to 100 a=n*(n+1) s=s+a if s5000 & s=5000 exit endifendfor? n & ? n 改为 ? n-1set talk onreturn& 成果为：2320. 求出100以内使得算式1+(1+2)+(1+2+n)值小于1000最大自然数n。set talk offclears=0t=0for n=1 to 100 s=s+n t=t+s if t1000 & t=1000 exit endifendfor? n & ? n 改为 ? n-1set talk onreturn& 成果为：1728. 某国在 时人口总数为1亿，若以每十二个月3%速度递增，试求出最少要到哪一年该国人口总数才会翻一翻。set talk offclears=1for n= to 2100 s=s*1.03 if s=2 & s=2 改为 s2 loop & loop 改为 exit endifendfor? nset talk onreturn& 成果为：202430. 设等比数列：1，2，4，8，。求使得此数列前n项之和不小于100000最小自然数n。set talk offcleara=1s=1 & s=1 改为 s=0 for n=1 to 100 s=s+a & 在 s=s+a 前加 a=2(n-1) if s100000 exit endif a=2+a & 去掉 a=2+a 该句endfor? nset talk onreturn& 成果为：1734. 求出45678所有非平凡因子（即除1和它自身以外约数）中是奇数因子个数。set talk offcleara=45678n=0for b=3 to a step 2 if mod(b,a)=0 & mod(b,a) 改为 mod(a,b) n=n+1 endifendfor? b & ? b 改为 ？nset talk onreturn& 成果为：735. 求出203267所有真因子（即小于它自身约数）中最大因子数。set talk offcleara=203267n=0for b=1 to a if mod(a,b)=0 & mod(b,a)=0 改为 mod(a,b)=0 & 加 if b=a & 加 exit & 加 endif max=a & max=a 改为 max=b endifendfor? a & ?a 改为 ? maxset talk onreturn& 成果为：655737. 求出20677和42067最大条约数。set talk offcleara=20677b=42067for d=1 to a if mod(a,d)=0 and mod(b,d)=0 max=d & max=b 改为 max=d endifendfor? max & ?d 改为 ? maxset talk onreturn& 成果为：71338. 求559399所有非平凡因子（即除1和它自身以外约数）中最小。set talk offcleara=559399for n=2 to a if mod(a,n)=0 loop & loop 改为 exit endifendforreturn& 成果为：7342. 求9269和8671最小公倍数。set talk offcleara=9269b=8671for k=a to a*b step a if mod(k,b)0 loop endif & 加 exitendfor? kset talk onreturn& 成果为：266880144. 已知数列：1,2,4,7,11,16,，其规律是相邻两项之差依次是1,2,3,4,5,。试求出此数列中不小于5000最小项。set talk offcleara=1for n=0 to 1000 a=a+n if a5000 loop & loop 改为 exit endifendfor? n & ?n 改为 ?aset talk onreturn& 成果为：505149. 求出100以内最小自然数n，使得从1开始连续n个自然数立方之和不小于88888。set talk offclears=0for n=1 to 100 a=n*3 & a=n*3 改为 a=n3 s=s+a if s88888 exit endif endfor? a & ?a 改为 ?nset talk onreturn& 成果为：2454. 设一数列f(n)：f(1)=1，当n1时f(n)=1/(f(n-1)+1)。试求出此数列前20项中不小于0.618项数。set talk offclearf=1.00000000n=0for k=2 to 20 f=1/f+1 & f=1/f+1 改为 f=1/(f+1) if f0.618 n=n+1 endifendfor? N & ?n 改为 ? n+1set talk onreturn & 答案：1555. 设有用26个字母表示26个表示式：a=1，b=1/(a+1)，c=1/(b+2)，z=1/(y+25)。试求出这26个字母中其值小于0.1字母个数。set talk offclearlett=1n=0for k=1 to 26 & 26 改为 25 lett=1/(lett+k) if lett54321 n=n+1 endif f1=f2 f2=f3 f3=f1 & f3=f1 改为 f3=fendfor? nset talk onreturn & 答案：558. 已知一个由分数组成数列：1/2，3/5，8/13，21/34，其特点是：从其中第2个数起，每个分数分子所有是前一分数分子分母之和。而其分母所有是其分子和前一分数分之和。试求出此数