判断输入的数是否是完数,怎样用vfp编写代码

如题所述

*完全数:如果一个数恰好等于它的因子之和(不含这个数的本身),则称该数为完全数(或称完数)。
CLEAR

INPUT "请输入一个任意正整数X=" TO X
S=0
FOR I=1 TO X
    IF MOD(X,I)=0 AND I!=X
        S=S+I    
    ENDIF
ENDFOR
IF X=S
    ?"完全数"
ELSE
    ?"非完全数"
ENDIF

温馨提示:答案为网友推荐,仅供参考
相似回答