Question

4．编写一个程序，求1～1000之间的所有3的倍数之和和所有7的倍数之和及所有3或7的倍数之和．

Answer 1

分析 此题属于设计程序框图解决实际问题，利用WHILE••END IF，进行编程即可解决．

解答 解：程序如下：
S=0，Q=0，R=0
WHILE  i＜=1000
IF  i MOD 3=0   THEN
  S=S+i
END  IF
IF  i MOD 7=0   THEN
  Q=Q+i
END  IF
IF  i MOD 3=0 or i MOD 7=0  THEN
 R=R+i
END  IF
i=i+1
WEND
PRINT“所有是3的倍数之和为：”S，“所有是7的倍数之和为：”Q，“所有是3和7的倍数之和为：”R
END

点评 此题主要考查设计程序解决实际问题，自己编写程序，有一定的难度，属于中档题．