重温一下数学知识,不知道对不对
SET talk off
s=0
DO WHILE .t.
IF INT(SQRT(s+100))-SQRT(s+100)=0 AND INT(SQRT(s+268))-SQRT(s+268)=0
STORE s TO out
?out
exit
ENDIF
s=s+1
ENDDO
看看有几合适的数
SET talk off
s=0
n=0
DO WHILE n<3
IF INT(SQRT(s+100))-SQRT(s+100)=0 AND INT(SQRT(s+268))-SQRT(s+268)=0
STORE s TO out
?out
n=n+1
ENDIF
s=s+1
ENDDO