12 lines
210 B
Text
12 lines
210 B
Text
|
For offset = 1 To 100
|
||
|
|
For i = 0 To 100 Step offset
|
||
|
|
a[i] = a[i] + 1
|
||
|
|
EndFor
|
||
|
|
EndFor
|
||
|
|
' Print "opened" doors
|
||
|
|
For i = 1 To 100
|
||
|
|
If math.Remainder(a[i], 2) = 1 Then
|
||
|
|
TextWindow.WriteLine(i)
|
||
|
|
EndIf
|
||
|
|
EndFor
|