basic 编码:
10 CLS
20 INPUT "t2=", T2
30 T = TIMER
40 PRINT 2; : M = M + 1
50 T1 = 3
60 DIM S(T2)
70 FOR n = T1 TO INT(SQR(T2)) STEP 2
80 IF S(n) = 0 THEN PRINT n; : M = M + 1: GOSUB 190
100 NEXT n
120 FOR n = n TO T2 STEP 2
130 IF S(n) = 0 THEN PRINT n; : M = M + 1
140 NEXT
150 T = TIMER - T
160 PRINT
170 PRINT "time pass"; T, "TOTAL="; M;
180 END
190 FOR K = n * n TO T2 STEP n: S(K) = 1: NEXT K
200 RETURN
freebasic 编译通过。
10 CLS
20 INPUT "t2=", T2
30 T = TIMER
40 PRINT 2; : M = M + 1
50 T1 = 3
60 DIM S(T2)
70 FOR n = T1 TO INT(SQR(T2)) STEP 2
80 IF S(n) = 0 THEN PRINT n; : M = M + 1: GOSUB 190
100 NEXT n
120 FOR n = n TO T2 STEP 2
130 IF S(n) = 0 THEN PRINT n; : M = M + 1
140 NEXT
150 T = TIMER - T
160 PRINT
170 PRINT "time pass"; T, "TOTAL="; M;
180 END
190 FOR K = n * n TO T2 STEP n: S(K) = 1: NEXT K
200 RETURN
freebasic 编译通过。