RosettaCodeData/Task/100-doors/BASIC/100-doors-10.basic
2019-09-12 10:33:56 -07:00

9 lines
151 B
Text

10 DIM D(100)
20 FOR I=1 TO 100
30 FOR J=I TO 100 STEP I
40 LET 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