1   REM センター試験1999数学B
2   REM マイクロソフトモードで実行してください
110 INPUT "n=";N
120 FOR J=1 TO N-1
130 W=0
140 FOR K=J TO N
150 PRINT K;
160 W=W+K
170 IF W>N THEN PRINT "No":GOTO 200
180 IF W=N THEN PRINT "Yes":GOTO 200
190 NEXT K
200 NEXT J
210 END

