问答题 编写程序,求出所有水仙花数及其个数。水仙花数为一个三位数,它的各位数的立方和等于它本身,如153=1 3 +5 3 +3 3
【正确答案】
【答案解析】程序代码如下:
SET TALK OFF
CLEAR
FOR i=100 TO 999
a=INT(i/100)
b=ITN(i/10)%10
C=MOD(i,10)
IF i=a* *3+b* *3+c* *3
? i
ENDIF
ENDFOR
SET TALK ON
RETURN