用PASCAL 求同构数它出现在它的平方数的右端。例如：5的平方是25，5就是同构数，25也是构数。

这个很简单

program.aaa;
var
..n,i,k,s:integer;
function.power(a,b:integer):integer;
var.i,s:integer;
begin
...s:=1;
...for.i:=1.to.b.do
.....s:=s*a;
...power:=s;
end;

begin
..read(n);{n范围}
..writeln('---------------------------');
..for.i:=1.to.n.do.begin
.......s:=i*i;
.......k:=trunc(ln(i)/ln(10))+1;
.......s:=s.mod.power(10,k);.{求最右端的数；}
.......if.s=i.then.writeln(i);
...end;
end.