重温一下数学知识,不知道对不对
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