[摘要]水仙花数是指一个三位数，其各个数之立方和等于该数，例如153，即为一水仙花数，因为153=13+53+33FORTRAN 源程序 WRITE(*,30) DO 10 K=100,999 IA=K/100 IB=MOD(K,100)/10 IC=MOD(K,10) IF(...
水仙花数是指一个三位数，其各个数之立方和等于该数，例如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
……