Question

求1～1000的所有不能被3整除的整数之和的程序如下：
S=0 （1）试用直到型循环结构再写一次这个程序．
i=1
WHILE i＜=1000 （2）编写求1～1000的所有能被3整除的整
r=i MOD 3        数之和的程序．
IF r＜＞0 THEN
S=S+i
END IF
i=i+1
WEND
PRINT S
END．

Answer

（1）要求试用直到型循环结构再写一次这个程序，即DO…LOOP UNTIL 结构，根据原程序进行书写；
（2）编写求1～1000的所有能被3整除的整数之和，首先S=0，利用WHILE••END IF，进行编程．
解（1）S=0              
    i=1
DO  
r=i MOD 3   
IF r＜＞0 THEN  
S=S+i
END IF
i=i+1  
LOOP UNTIL i＞1000
PRINT S  
END（6分）
（2）S=0
WHILE  i＜=1000
r=i MOD 3
IF  r=0   THEN
S=S+i
END  IF
i=i+1
WEND
PRINT
END