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                  ----------------

略