RosettaCodeData/Task/Loops-While/Microsoft-Small-Basic/loops-while.basic
2023-07-01 13:44:08 -04:00

5 lines
80 B
Text

i = 1024
While i > 0
TextWindow.WriteLine(i)
i = Math.Floor(i / 2)
EndWhile