19 lines
238 B
Text
19 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()
|