11 lines
155 B
Text
11 lines
155 B
Text
|
10 DIM D(100)
|
||
|
|
20 FOR I=1 TO 100
|
||
|
|
30 FOR J=i TO 100 STEP I
|
||
|
|
40 D(J)=NOT D(J)
|
||
|
|
50 NEXT J
|
||
|
|
60 NEXT I
|
||
|
|
70 FOR I=1 TO 100
|
||
|
|
80 IF D(I) THEN PRINT I;
|
||
|
|
90 NEXT I
|
||
|
|
100 END
|