15．编写程序，s11213…199，保留两位小数。clears0for
1to99ss1
extsretur
16．编程求S132435198200。clears0for
1to198ss
2
extsretur
17．设S112131N，N为正整数。编程求使S不超过10的最大的Nclears0
0dowhilet
1ss1

fifs10exit
e
dife
ddo
1retur
18．求S8910clears0forx8to10
t1fory1tox
tty
extsst
extsretur
19．编写程序，求1020．计算S357N，求直到S680000为止的奇数N。clears0
3dowhilett1m1dowhilem
ttmmm1e
ddosstifs680000exite
dif
2e
ddo
retur
21．s123
当s大于61000时结束累加，求
。22．数列xi各元素的值是：x1＝1，x2＝1＋2x3＝1＋2＋3x
＝1＋2＋3＋＋
。对数列求和：Sx1x2x3，直到S3000止，求此时数列中最大的元素值。clears0
1
fdowhiletx0m1dowhilem
xxmmm1e
ddossxifs3000exite
dif
1
e
ddoxretur
23．已知S11S212S3123…SN12…N求S20到S80有多少数能被17或35整除。clear
0forx20to80
s0fory1tox
ssy
extifs170ors350

1e
dif
ext
retur
24．求在123410这10个数中，任意选两个不同的数求它们的和能被2整除的数的总对数。注意象35和53认为是同一对数clear
0forx1to10fory1tox1
ifxy20
1
e
dif
ext
ext
retur

f25．已知一个数列的前三个数是123从第四个数起每个数都是前三个数之和。求出该数列的第15个数。cleardimea15a11a22a33fori4to15
aiai1ai2ai3
exta15retur
26．编写程序，求200到800之间素数的个数。clear
0forx200to800
flagtfori2tosqrtx
ifxi0flagfexit
e
dif
extifflagt

1e
dif
ext
retur
27．编写程序，求600到900之间素数的和。28．所谓回文数是从左至右或从右至左读起来都是一样的数字，如：121是一个回文数。编写程序，求在100900的范围内所有能被3整除的回文数的和。clears0forx100to900ax10bi
tx100ifaba
dx30
ssxe
dif
ext
fsretur
29．编写程序，计算r