18 lines
238 B
Text
18 lines
238 B
Text
Dim doors.i(100)
|
|
|
|
For x = 1 To 100
|
|
y = x
|
|
While y <= 100
|
|
doors(y) = 1 - doors(y)
|
|
y + x
|
|
Wend
|
|
Next
|
|
|
|
OpenConsole()
|
|
PrintN("Following Doors are open:")
|
|
For x = 1 To 100
|
|
If doors(x)
|
|
Print(Str(x) + ", ")
|
|
EndIf
|
|
Next
|
|
Input()
|