编写程序求1~1000的所有不能被3整除的整数之和.

问题描述:

编写程序求1~1000的所有不能被3整除的整数之和.

程序如下:
S=0       
i=1
WHILE i<=1000  
r=i MOD 3       
IF r<>0 THEN
S=S+i
END IF
i=i+1
WEND
PRINT S
END.