编程，，
1.求[2000，10000]间能同时被7和11整除的自然数之和。(620620)
2.求在1至900之间,只要能被3，5，7之一整除的数的个数。(489)
3..编写程序求s=1+1/2+1/3+…+1/80，保留两位小数。(四舍五入)(4.97)
4..求能被3整除且至少有一位数字为5的三位数的个数(85)

2、提示用户输入x，求y
3、求S=100!
4、求y=1*2+2*3+3*4+……+20*21
5、求S=1-1/3+1/5-1/7+...-1/99之值,(精确到小数后两位)。
求编程，做作业，拜托了！！！！！！

1）计算S=3!+5!+7!+...+N!，求直到S>=600000为止的奇数N（11）
2）编程求区间[5000，9999]中所有素数的个数.（560）
3）已知a>b>c，且a+b+c<100，求满足条件1/(a^2)+1/(b^2)=1/(c^2)的共有多少组（2）
4）编程序，计算在10至50的范围内有多少个数，其每位数的乘积小于每位数的和（17）
5）有30个人在一家小餐馆里用餐，其中有男人、女人和小孩。每个男人花了3元，每个女人花了2元，每个小孩花了1元，一共花去50元,问有几种组合？（9）
最后一组，在线等，拜托吧大神动动金手给下答案，谢了！！！

可以和我联系解答2567478305

clear
?"1.求[2000，10000]间能同时被7和11整除的自然数之和。(620620)"
s=0
FOR i=2000 TO 10000
IF MOD(i,7)=0 AND MOD(i,11)=0
s=s+i
endif
ENDFOR
?s
?"2.求在1至900之间,只要能被3，5，7之一整除的数的个数。(489)"
s=0
FOR i=1 TO 900
IF MOD(i,3)=0 or MOD(i,5)=0 or MOD(i,7)=0
s=s+1
endif
ENDFOR
?s
?"3.编写程序求s=1+1/2+1/3+…+1/80，保留两位小数。(四舍五入)(4.97)"
s=0
FOR i=1 TO 80
s=s+1/i
ENDFOR
?ROUND(s,2)
?"4.求能被3整除且至少有一位数字为5的三位数的个数(85)"
n=0
FOR i=100 TO 999
IF MOD(i,3)=0 and '5'$STR(i,3)
n=n+1
ENDIF
ENDFOR
?n
?"2、提示用户输入x，求y"
input '请输入数值x:' to x
?[y=],ICASE(x>5,EXP(5),x>0 and x<=5,x,x^2+1)
?"3、求S=100!"
s=1
FOR i=1 TO 100
s=s*i
ENDFOR
?s
?"4、求y=1*2+2*3+3*4+……+20*21"
y=0
FOR i=1 TO 20
y=y+i*(i+1)
ENDFOR
?y
?"5、求S=1-1/3+1/5-1/7+...-1/99之值,(精确到小数后两位)。"
s=0
FOR i=1 TO 45
s=s+(-1)^(i-1)/(2*i-1)
ENDFOR
?ROUND(s,2)
?"1）计算S=3!+5!+7!+...+N!，求直到S>=600000为止的奇数N（11）"
s=0
i=1
DO WHILE s<600000
i=i+2
s=s+fact(i)&&自定义函数
ENDDO
?i
?"2.编程求区间[5000，9999]中所有素数的个数.（560）"
n=0
FOR i=5000 TO 9999
IF isprime(i) &&自定义函数
n=n+1
endif
ENDFOR
?'5000-9999素数的个数:',n
?"3）已知a>b>c，且a+b+c<100，求满足条件1/(a^2)+1/(b^2)=1/(c^2)的共有多少组（2）"
n=0
FOR a=3 TO 99
FOR b=2 TO a-1
FOR c=1 TO b-1
IF a+b+c<100 AND 1/(a^2)+1/(b^2)=1/(c^2)
n=n+1
ENDIF
ENDFOR
ENDFOR
ENDFOR
?n
?"4）编程序，计算在10至50的范围内有多少个数，其每位数的乘积小于每位数的和（17）"
n=0
FOR i=10 TO 50
n1=VAL(LEFT(STR(i,2),1))
n2=VAL(right(STR(i,2),1))
IF n1*n2<n1+n2
n=n+1
ENDIF
ENDFOR
?n
?"5）有30个人在一家小餐馆里用餐，其中有男人、女人和小孩。每个男人花了3元，每个女人花了2元，每个小孩花了1元，一共花去50元,问有几种组合？（9）"
n=0
FOR man=1 TO 30
FOR woman=1 TO 30-man
FOR child=1 TO 30-man-woman
IF 3*man+2*woman+child=50
n=n+1
ENDIF
ENDFOR
ENDFOR
endfor
?n
FUNCTION fact
PARAMETERS m
LOCAL i,s
s=1
FOR i=1 TO m
s=s*i
ENDFOR
RETURN s
ENDFUNC
FUNCTION isprime
PARAMETERS num
LOCAL i
FOR i=2 TO SQRT(num)
IF MOD(num,i)=0
RETURN .f.
ENDIF
ENDFOR
RETURN .t.
ENDFUNC