水仙花数是指一个三位数，其各个数之立方和等于该数，例如，即为一水仙花数，因为=13+53+33FORTRAN源程序WRITE(*,30)DO10K=,IA=K/IB=MOD(K,)/10IC=MOD(K,10)IF(K.NE.IA**3+IB**3+IC**3)GOTO10WRITE(*,20)K,IA,IB,IC10CONTINUE20FORMAT(5X,4I4)30FORMAT(5X,18HN=I**3+J**3+K**3)STOPENDBASIC源程序10PRINTN=I^3+J^3+K^FORK=TO30IA=INT(K/)40IB=INT((KMOD)/10)50IC=KMODL=IA^3+IB^3+IC^IFKLTHENGOTOPRINTK;;IA;;IB;;IC90NEXTK
预览时标签不可点收录于话题#个上一篇下一篇
