水仙花數(shù)
發(fā)表時(shí)間：2023-08-22 來源：明輝站整理相關(guān)軟件相關(guān)文章人氣：
[摘要]水仙花數(shù)是指一個(gè)三位數(shù)，其各個(gè)數(shù)之立方和等于該數(shù)，例如153，即為一水仙花數(shù)，因?yàn)?53=13+53+33FORTRAN 源程序 WRITE(*,30) DO 10 K=100,999 ...
水仙花數(shù)是指一個(gè)三位數(shù)，其各個(gè)數(shù)之立方和等于該數(shù)，例如153，即為一水仙花數(shù)，因?yàn)?53=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
