Question

（（10分）求100～999中的水仙花数,所谓水仙花数是一个三位数,它的各位数字的立方和等于该数,例如153是一个水仙花数,因为.试编一段程序,找出所有的水仙花数.

Answer 1

解：       I=100
DO
A=I\100
B=(I-100*A)\10
C=I-A*100-B*10
IF   I="A*A*A+B*B*B+C*C*C  " THEN
PRINT  I
END IF
I=I+1
LOOP UNTIL I>999
END                  ----------------

略