昔ながらのBASICで。 すぐに使える実行環境が無いので机上デバッグしかしていません。 10 'SAVE "PRIME.BAS" 20 DIM A(100):I=2 30 FOR P=I*2 TO 100 STEP I:A(P)=1:NEXT P 40 I=I+1:IF I=101 THEN GOTO 60 50 IF A(I)=0 THEN GOTO 30 ELSE GOTO 40 60 FOR I=2 TO 100 70 IF A(I)=0 THEN PRINT I," "; 80 NEXT I
昔ながらのBASICで。
すぐに使える実行環境が無いので机上デバッグしかしていません。
10 'SAVE "PRIME.BAS"
20 DIM A(100):I=2
30 FOR P=I*2 TO 100 STEP I:A(P)=1:NEXT P
40 I=I+1:IF I=101 THEN GOTO 60
50 IF A(I)=0 THEN GOTO 30 ELSE GOTO 40
60 FOR I=2 TO 100
70 IF A(I)=0 THEN PRINT I," ";
80 NEXT I