您所在位置：主题：[讨论]这道题我想了好久哦，希望各位高手前来指点一下。
nhjane
[专家分：30] 发布于 2005-06-04 11:21:00
找出1～1000之间的全部同构数。所谓同构数就是指这样的数，它出现在它的平方数的右端。例如：5的平方是25，5是25右端的数，5就是同构数。同理，25的平方是625，25也是一个同构数。
我是这样编的,怎么看都没问题呀，但就是不行，请各位高手指导指导。
CLS
FOR I = 1 TO 1000
L=LEN(I)
S=I^2
I$=STR$(I)
S$=STR$(S)
IF I$=RIGHT$(S$,L) THEN PRINT I;
NEXT I
END
我是这样编的,怎么看都没问题呀，但就是不行，请各位高手指导指导。
CLS
FOR I = 1 TO 1000
L=LEN(I)
S=I^2
I$=STR$(I)
S$=STR$(S)
IF I$=RIGHT$(S$,L) THEN PRINT I;
NEXT I
END
