RosettaCodeData/Task/100-doors/BASIC/100-doors-3.basic
2018-06-22 20:57:24 +00:00

9 lines
149 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