6 lines
72 B
VB.net
6 lines
72 B
VB.net
|
Dim x = 1024
|
||
|
|
Do
|
||
|
|
Console.WriteLine(x)
|
||
|
|
x = x \ 2
|
||
|
|
Loop While x > 0
|