Store 0 to I,s1,s2

Do while I<=500

I=I+1

If mod(I,2)=0

S1=s1+I*I*I

Else

S2=s2+I*I*I

Endif

Enddo

? s1-s2

return

程序二：已知s1=1,s2=1+2,s3=1+2+3,…,SN=1+2+3+…+N，下面程序是求S20到S80有多少能被17或35整除。

程序一:
Store 0 to I,s1,s2
Do while I<500 &&你原来的是I<=500
I=I+1
If mod(I,2)=0
S1=s1+I*I*I
Else
S2=s2+I*I*I
Endif
Enddo
? s1-s2
return

或者改写为
STORE 0 TO S1,S2
FOR I=1 TO 55
IF MOD(I,2)=0
S1=S1+I*I*I
ELSE
S2=S2+I*I*I
ENDIF
ENDFOR
?S1-S2