10 lines
186 B
Text
10 lines
186 B
Text
100 ARRAY D
|
|
110 FOR P = 1 TO 100
|
|
120 FOR T = P TO 100 STEP P
|
|
130 LET D[T] = (D[T] <> 1)
|
|
140 NEXT T
|
|
150 NEXT P
|
|
160 FOR I = 1 TO 100
|
|
170 IF D[I] THEN PRINT I;" ";
|
|
180 NEXT I
|
|
190 END
|