同构数是会出现在它的平方的右边的数

如5×5=25，6×6=36。

十进制同构数

以6开头的同构数有：

6^2=36

76^2=5776

376^2=141376

9376^2=87909376

109376^2=11963109376

7109376^2=50543227109376

87109376^2=7588043387109376

787109376^2=619541169787109376

1787109376^2=3193759921787109376

81787109376^2=6689131260081787109376

40081787109376^2=1606549657881340081787109376

找出1至10000之间的全部同构数的C语言程序

例如：5是25右边的数，25是625右边的数，5和25都是同构数数*/

方法一：

#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\",i,j);

}

}

方法二：

#include "stdio.h"

void main( )

{ long int m,m1,n,a,b;

scanf("%ld",&m);

m1=m;

n=m*m1;

while(m1)

{ a=m1%10; b=n%10;

if(a!=b) break;

m1=m1/10; n=n/10;

}

if(m1!=0) printf("%d不是一个同构数");

else printf("%d是一个同构数");

}

{找出1～10000之间同构数的PASCAL程序}

program exp;

var i,j,k:longint;

begin

k:=10;

for i:=1 to 10000 do

begin

if i=k then k:=k*10;

j:=i*i;

if j mod k=i then writeln(i:8,j:8);

end;

end.

1～1000之间的同构数有下面这八个（第二列是它的平方）：

1　1

5　25

6　36

25　625

76　5776

376　141376

625　390625

9376　87909376