2.有FOXBASE程序如下:
SET TALK OFF
CLEAR
STORE 1 TO X
STORE2001 TO Y
DO WHILE X<Y
IF .NOT.(INT(X/2)=X/2)
X=X^2+1
Y=Y+1
ELSE
X=X+1
ENDIF
ENDDO
?X
?Y
运行后X的值为 Y的值为 。