fortran程序编成 一个数恰好等于它的平方数的右端，这个数称为同构数。如5的平方是25，5是
fortran程序编成 一个数恰好等于它的平方数的右端，这个数称为同构数。如5的平方是25，5是
日期：2015-06-26 11:41:23 人气：1
你好！代码如下：
PROGRAM TGS
IMPLICIT NONE
INTEGER(4)::i,j,k
DO i=1,1000
k=0
j=1
DO WHILE(INT(i/(10*j))/=0)
j=j*10
ENDDO
IF(MOD(i**2-i,10*j)==0)THEN
k=k+1
WRITE(*,100)k,i
100 FORMAT("第",I4,"个同构数是：",I6)
ENDIF
ENDDO
READ(*,*)
END