5 lines
117 B
Text
5 lines
117 B
Text
begin
|
|
comment Loops/While - algol60 - 21/10/2014;
|
|
integer i;
|
|
for i:=1024,i div 2 while i>0 do outinteger(1,i)
|
|
end
|