1. S=1
INPUT "请输入一个自然数" TO N
FOR X=1 TO N STEP 1
S=S*X
ENDFOR
?S
2. S=0
FOR X=1 TO 10
IF MOD(X,2)=0
S=S+X
ENDIF
ENDFOR
?S
input '请输入一个自然数n' to n
s=1
i=1
do while i<=n
s=s*i
i=i+1
enddo
?s
n=1
sum=0
do whil n<=10
if mod(n,2)=0
sum=sum+n
endi
n=n+1
endd
?"1-10中的所有偶数和为:",sum