如何写函数用来找出所有水仙花数并尽可能提高函数的执行效率答: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 C++编译器...