[求助]我的程序是哪里出错了?
程序一:是求1到500的偶数立方和与奇数立方和之差。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整除。
I=20
N=0
Do while I<=80
Store 0 to s
J=1
Do while j<=I
S=s+j
J=j+1
Enddo
If mod(s,17)=0
N=n+1
Endif
I=I+1
Enddo
? n
return