问答题
编写程序,求出所有水仙花数及其个数。水仙花数为一个三位数,它的各位数的立方和等于它本身,如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
提交答案
关闭