fortran编程题,在线求解,急!有加分答:!计算水仙花数 100-999 program zy8 implicit none integer i,a,b,c,n n=0;do i=100,999,1 a=i/100 b=i/10-a*10 c=mod(i,10)if ((a*a*a + b*b*b + c*c*c) .eq. i) then n=n+1 write(*,'(I4,$)')i endif enddo end program zy8 !寻找同构数1-1000 program ...