主题：如何求同构数？
QB阿呆
[专家分：0] 发布于 2007-09-02 15:22:00
如何求1~N的同构数？[em8][em8]
最后更新于：2007-09-02 15:24:00
回复列表 （共4个回复）
沙发
QB爱好者 [专家分：370] 发布于 2007-09-02 16:04:00
[em1][em1]
CLS
INPUT N
FOR I=1 TO N
A$=MID$(STR$(I*I),2)
B$=MID$(STR$(I),2)
IF MID$(A$,LEN(A$)-LEN(B$)+1)=B$ THEN PRINT I;
NEXT I
END
板凳
QB阿呆 [专家分：0] 发布于 2007-09-02 16:06:00
3Q!
类似MID$(A$,2)的表达式是什么意思？
3 楼
QB爱好者 [专家分：370] 发布于 2007-09-02 16:23:00
从A$的第二位截起.
4 楼
Matodied [专家分：7560] 发布于 2007-09-02 19:49:00
关于同构数的问题：
在10000以内有2个比较特殊的数：625 和 9376。
它们为什么特殊呢？首先它们本身就是同构数，任取它们右边的一位或几位，得到的数也是同构数。
我来回复
您所在位置：