您所在位置：主题：程序哪里错了？？？
1000cixingfu
[专家分：0] 发布于 2009-11-04 12:03:00
输出2~2000之间全部同构数。同构数是指，它出现在它平方数的右端。例如25的平方是625，则25是同构数
program TG
implicit none
integer::m,n,a
I:do a=2,1000,1
m=a*a
n=m-a
if (2<=a<10.and.mod(n,10)=0.or.10<=a<100.and.mod(n,100)=0.or.100<=a<1000.and.mod(n,1000)) print a
end do I
end program TG
program TG
implicit none
integer::m,n,a
I:do a=2,1000,1
m=a*a
n=m-a
if (2<=a<10.and.mod(n,10)=0.or.10<=a<100.and.mod(n,100)=0.or.100<=a<1000.and.mod(n,1000)) print a
end do I
end program TG
