ABAP算法题:水仙花数

题目:打印出所有的"水仙花数",所谓"水仙花数"是指一个三位数,其各位数字立方和等于该数本身。例如:153是一个"水仙花数",因为153=1的三次方+5的三次方+3的三次方。

DATA i TYPE i VALUE 99.
DATA str TYPE string.

DO 900 TIMES.
  i = i + 1.
  str = i.
  IF  i = str+(1) ** 3 + str+1(1) ** 3 + str+2(1) ** 3.
    WRITE i.
  ENDIF.
ENDDO.

 

posted @ 2019-08-01 09:53  以秉  阅读(401)  评论(0编辑  收藏  举报