moz真棒，妙也！

我最近一直在研究这个问题。
为什么像12890625、87109376这样的N位数，它们平方的后N位等于原数。
其实这也没什么奇怪的，把s$前面加上一个一位数，使它的平方后N位等于原数就行了。

举例:
376 的平方 
=376*376
=376*(375+1)
=376*375+376
=(47*8)*(3*125)+376
=(47*3)*(8*125)+376
=141*1000+376
=141000+376
=141376
从中可以看出来,比较简单
某一个数X,与X-1的乘积是一个带有一大串零的数.
成双成对的,只有是尾数是6和5,还有5和4了.

就是5*5=25
而25则为5的同构数
input n
for i=1 to n
k=len(ltrim$(str$(i)))
a=i*i
m$=ltrim$(str$(a))
d$=mid$(m$,len(m$)-k+1,k)
if d$=strim$(str$(n)) then
print i;"*";i;"=";a;"是";i;"的同构数"
end if
next i
这题是反应１到Ｎ中能有多少个同构数与１到Ｎ本身！
如果不对请大家告诉我一下，谢谢！