改错

s=s*1.03
if s=2
loop
endif
endfor
? n
set talk on
return
13、设等比数列：1，2，4，8，…。求使得此数列的前n项之和大于100000的最小的自然数n。
set talk off
clear
a=1
s=1
for n=1 to 100
return
25、若一个自然数恰好等于某个整数的平方，则称此数为完全平方数。如144是完全平方数，因为它等于12的平方。求[1000,9999]内所有完全平方数的和。
set talk off
clear
s=0
for x=1000 to 3000
y=sqrt(x)
if x=y*y
s=s+x
s=s+a
if s>2000
EXIT
endif
endfor
? n
set talk on
return
9、求出100以内使得算式1*2+2*3+…+n*(n+1)的值小于5000的最大的自然数n。
set talk off
clear
s=0
for n=1 to 100
a=n*(n+1)
clear
a=0
s=0
for n=1 to 100
a=a+n
s=s+a
if s>800
exit
endif
endfor
? n
set talk on
return
20、已知数列{f(n)}：f(1)=1，f(2)=4，当n=3,4,5,…时，f(n)=3*f(n-1)-f(n-2)。试求出100以内最小的自然数n使得此数列的第n项大于87654321。
clear
s=0
for n=1 to 100
s=s+n*3
if s>=20000
exit
endif
endfor
? n
set talk on
return
7、求50以内最大的自然数n，使得从102开始的连续n个偶数之和小于3000。
set talk off
clear
s=0
for n=1 to 50
clear
x=0.987654321
n=0
for k=1 to 25
x=2**x
z=int(x)
x=x-z
if z=1
n=n+z
endif
endfor
? n
set talk on
return
29、对自然数A、B、C，若A<B<C且A*A+B*B=C*C，则称{A,B,C}为一组勾股弦数，其中A、B、C分别称为勾、股、弦。试求出弦为1300的勾股弦组数。
s=sqrt(s+n)
endif
endfor
? round(s,0)
set talk on
return
18、已知数列：1,2,4,7,11,16,…，其规律是相邻两项之差依次是1,2,3,4,5,…。试求出此数列中大于5000的最小的项。
set talk off
clear
a=1
for n=0 to 1000
clear
s=0
for x=10 to 1000
if mod(x,6)=0 or mod(x,9)=0
x=s+x
endif
endfor
? s
set talk on
return
4、求[101,299]内所有能被2整除但不能同时被3和5整除的整数之和。
set talk off
clear
s=s+n
t=t+s
if t<1000
exit
endif
endfor
? n
set talk on
return
11、求出100以内使得算式1/(1*1)+1/(2*3)+…+1/(n*(2n-1)的值大于1.35的最小的自然数n。
set talk off
clear
s=0
for n=1 to 100
s=0
for x=101 to 299
if mod(x,2)=0 and not mod(x,3)=0 and mod(x,5)=0
x=s+x
endif
endfor
? s
set talk on
return
5、求100以内最大的自然数n，使得从1开始的连续n个自然数的倒数之和a,p)
if r=1
n=1
endif
a=int(a/p)
enddo
? N
set talk on
retur
28、求出将十进制小数0.987654321等值转换为二进制形式表示后前25位小数中数字0的个数。（提示：使用“2乘取整”法）
set talk off
b=c/a
if a*b=c
min=a+b
endif
endfor
? min
set talk on
return
27、求出将十进制整数98765432等值转换为二进制形式表示后其中数字1的个数。（提示：模拟人工计算的“2除取余”法）
set talk off
clear a=98765432 p=2
set talk off
clear
n=0
for x=-99 to 99
set talk off
clear
dimension f(100)
f(1)=1
f(2)=4
for n=3 to 100
f(n)=3*f(n-1)-f(n-2)
if f(n)<=87654321
loop
endif
endfor
? n
set talk on
return
21、一球从100米高处落至平地，并且连续多次再反弹再落下，假设每次反弹的高度都是前一高度的3/4倍，试求出最小的自然数n，使得此球从开始下落至第n次着地时在垂直方向所经过的总路程超过678米。
set talk off
clear
h=100
s=0
for n=2 to 100
h=h*3/4
s=s+h
if s>678
exit
endif
endfor
? N
set talk on
retur
22、设一数列{f(n)}：f(1)=1，当n>1时f(n)=1/(f(n-1)+1)。试求出此数列的前20项中大于0.618的项数。
s=s+a
if s<5000
exit
endif
endfor
? n
set talk on
return
10、求出100以内使得算式1+(1+2)+…+(1+2+…+n)的值小于1000的最大的自然数n。
set talk off
clear
s=0
t=0
for n=1 to 100
endif
endfor
? x
set talk on
return
26、求满足条件A*B=54321的所有自然数对A、B对应的A+B的最小值。（提示：设A<=B，当A越大时A+B越小）
set talk off
clear
c=54321
k=int(sqrt(c))
for a=1 to c
set talk off
clear
f=1.00000000
n=0
for k=2 to 20
f=1/f+1
if f>0.618
n=n+1
endif
endfor
? N
set talk on
retur
23、已知一个由分数组成的数列：1/2，3/5，8/13，21/34，…，其特点是：从其中第2个分数起，每个分数的分子都是前一分数的分子分母之和而其分母都是其分子与前一分数的分母之和。试求出此数列的前25项中其值大于0.618的项数。
if mod(b,a)=0
n=n+1
endif
endfor
? b
set talk on
return
15、求出20677和42067的最大公约数。
set talk off
clear
a=20677
b=42067
for d=1 to a
if mod(a,d)=0 and mod(b,d)=0
a=100+2*n
s=s*a
if s>=3000
loop
endif
endfor
? n-1
set talk on
return
8、求50以内最小的自然数n，使得从102开始的连续n个偶数之和大于2000。
set talk off
clear
s=0