CLS
FOR I=1 TO 100
IF I<10 THEN K=10 ELSE K=100
IF I^2-INT(I^2*K)=I THEN PRINT I
NEXT I
END
[em9]

'我的更多,只能是QB71
DEFCUR A-Z
INPUT A
FOR I = 0 TO A
B = I ^ 2
IF RIGHT$(STR$(B), LEN(LTRIM$(STR$(I)))) = LTRIM$(STR$(I)) THEN PRINT I;
NEXT
PRINT
END

==================================================================
? 100
0  1  5  6  25  76

请尾数在1,5,6,0这4个数中循环
加这一句
if i mod 10=2 or i mod 10 =7 then then i=i+3