gdbh.bas

来自「一个basic语言的编译工具。」· BAS 代码 · 共 21 行

INPUT "N=",N
DIM A(N+SQR(N)+10000)
FOR I=3 TO N STEP 2
A(I)=I
NEXT I
FOR I=3 TO SQR(N)
 IF A(I)=0 THEN GOTO 1
 FOR J=I TO N STEP I
  A(I+J)=0
 NEXT J
1 NEXT I
FOR X=4 TO N/2
FOR I=1 TO 2*X
K=X-I:P=X+I
IF A(K)*A(P)<>0 THEN GOTO 2
IF K<3 THEN PRINT "KKKKK":END
NEXT I
2 PRINT 2*X;"=";A(K);"+";A(P),
NEXT X
END