Loops/While: Difference between revisions

=={{header|Simula}}==

{{trans|algol60}}

{{works with|SIMULA-67}}

<lang simula>

begin

integer i;

i:=1024;

while i>0 do

begin

outint(i,5);

i:=i//2-1

end

end

</lang>

{{out}}

<pre>

 1024  511  254  126   62   30   14    6    2 

</pre>