首页 | 社区 | 博客 | 招聘 | 文章 | 新闻 | 下载 | 读书 | 代码
亲,您未登录哦! 登录 | 注册

水仙花数

打印文章

分享到:
水仙花数是指一个三位数,其各个数之立方和等于该数,例如153,即为一水仙花数,因为153=13+53+33

FORTRAN 源程序



   WRITE(*,30)

    DO 10 K=100,999

      IA=K/100

  IB=MOD(K,100)/10

  IC=MOD(K,10)

  IF(K.NE.IA**3+IB**3+IC**3) GOTO 10

  WRITE(*,20)K, IA,IB,IC

10       CONTINUE

20       FORMAT(5X,4I4)

30       FORMAT(5X,18HN=I**3+J**3+K**3)

STOP

END



BASIC 源程序



10 PRINT "  N =  I ^ 3 + J ^ 3 + K ^ 3"

20 FOR K = 100 TO 999

30   IA = INT(K / 100)

40   IB = INT((K MOD 100) / 10)

50   IC = K MOD 10

60   L = IA ^ 3 + IB ^ 3 + IC ^ 3

70   IF K <> L THEN GOTO 90

80   PRINT K; "   "; IA; "     "; IB; "    "; IC

90 NEXT K

本栏文章均来自于互联网,版权归原作者和各发布网站所有,本站收集这些文章仅供学习参考之用。任何人都不能将这些文章用于商业或者其他目的。( Pfan.cn )

编程爱好者论坛

本栏最新文章