有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
本人菜鸟 你能说多简单就说多简单 就当给一点不会的讲