求1—500同构数
#include "stdio.h"
int main()
{
    int n=1,i,j,p,q,r,x,m,z,d;
    double s;
    do
    {s=n*n;
     if((s/10)>1&&(s/10)<=9)
     {for(i=1;i<=9;i++)
     if (s==i*10+n) printf("%d\n",n);
     }
     if((s/100)>1&&(s/100)<=9)
     {for(j=1;j<=9;j++)
     if(s==i*100+n) printf("%d\n",n);
     }
     if((s/1e3)>1&&(s/1e3)<=9)
     {for(p=1;p<=9;p++)
      for(x=1;x<=9;x++)
     if(s==p*1e3+x*1e2+n) printf("%d\n",n);
     }
     if((s/1e4)>1&&(s/1e4)<=9)
     {for(q=1;q<=9;q++)
      for(m=1;m<=9;m++)
     if(s==q*1e4+m*1e3+n) printf("%d\n",n);
     }
     if((s/1e5)>1&&(s/1e5)<=9)
     {for(r=1;r<=9;r++)
      for(z=1;z<=9;z++)
      for(d=1;d<=9;d++)
     if(s==r*1e5+z*1e4+d*1e3+n) printf("%d\n",n);
     }
        n++;
    }while(n<=500);
    return 0;
}

你的程序好像运行的结果不正确。下面给出一个简单一点的。
不过它只能求10000以内的同构数。
#include<stdio.h>
main()
{ long i,j,k;
k=10;
for (i=1;i<=10000;i++){
if (i==k) k*=10;
j=i*i;
if(j%k==i) printf("%ld\t%ld\n",i,j);
}
}