Anonymous user
Loops/While: Difference between revisions
no edit summary
(→{{header|Trith}}: added Transact-SQL) |
No edit summary |
||
Line 736:
2
1
</pre>
=={{header|Gambas}}==
<lang gambas>Public Sub Main()
Dim siCount As Short = 1024
While siCount > 0
Print siCount;;
siCount /= 2
Wend
End</lang>
Output:
<pre>
1024 512 256 128 64 32 16 8 4 2 1
</pre>
|