6 lines
117 B
Text
6 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
|