主题：[活动]JJJJJJJJJ
神鬼天王
[专家分：30] 发布于 2009-09-16 19:00:00
求1~N的所有同构数！
回复列表 （共1个回复）
沙发
phile [专家分：2310] 发布于 2009-09-16 19:01:00
CLS
INPUT N
FOR I = 1 TO N
S$ = LTRIM$(STR$(I ^ 2))
Z$ = LTRIM$(STR$(I))
L = LEN(Z$)
IF RIGHT$(S$, L) = Z$ THEN PRINT I, S$
NEXT I
我来回复
您所在位置：