RosettaCodeData/Task/Loops-While/Simula/loops-while.simula

10 lines
96 B
Plaintext

begin
integer i;
i:=1024;
while i>0 do
begin
outint(i,5);
i:=i//2-1
end
end