水仙花數是指一個三位數，其各個數之立方和等于該數，例如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