第一题SET TALK OFFSTORE 0 TO X,YDO WHILE．T．X=X+1Y=Y+X=5EXITENDIFENDDOX,YSET TALK ON第二题SET TALK OFFDIMESSIN A（6）FOR K=1 TO 6A（K）=20– 2*KENDFORK=5=2A（K）=A（K）- A（K – 1）K=K – 1ENDDOA（1）,A（3）,A（5）SET TALK ON这
网友回答
此题一般是笔试题,应该用人算,当然机器更方便,如果考试的时候能用的话·····
1.x=5,y=15
2.A(1),A(3),A(5)分别为18,-2,-2
不信可以用机器：（我改过的···）
SET TALK OFF
STORE 0 TO X,Y
DO WHILE .t.
X=X+1Y=Y+XIF X>=5EXITENDIFENDDO?X,YSET TALK ON
####################
SET TALK OFF
DIME A(6)
FOR K=1 TO 6
A(K)=20-2*K
ENDFOR
K=5DO WHILE K>=2A(K)=A(K)- A(K-1)
K=K-1ENDDO?A(1),A(3),A(5)
SET TALK ON