Question

完全數(shù)（Perfect number）是一些特殊的自然數(shù)：它所有的真因子（即除了本身以外的約數(shù)）的和，恰好等于它本身． 例如：第一個完全數(shù)是6，它有約數(shù)1、2、3、6，除去它本身6外，其余3個數(shù)相加，1+2+3=6．又如：8的真因子是1，2，4，而1+2+4=7，所以8不是完全數(shù)．按定義設計一個QBASIC程序，判斷自然數(shù)n是否為完全數(shù)．（要求畫出程序框圖）

Answer 1

程序框圖如圖…（8分）
QBASIC程序如下：
INPUT  n
s=0
i=1
DO
IF  n MOD i=0  THEN
s=s+i
END  IF
i=i+1
LOOP  UNTIL  i＞=n
IF  s=n   THEN
PRINT“YES”．
ELSE
PRINT“NO”．
END  IF
END…（14分）