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