RosettaCodeData/Task/100-doors/Run-BASIC/100-doors.basic
2023-07-01 13:44:08 -04:00

8 lines
206 B
Text

dim doors(100)
print "Open doors ";
for i = 1 to 100
for door = i to 100 step i
doors(door) = (doors(door) <> 1)
if i = door and doors(door) = 1 then print i;" ";
next door
next i