Cod sursa(job #163446)

Utilizator free2infiltrateNezbeda Harald free2infiltrate Data 22 martie 2008 11:46:37
Problema Sortare Scor 0
Compilator fpc Status done
Runda preONI 2008, Runda Finala, Clasa a 10-a Marime 0.34 kb
Raporteaza aceasta sursa 
program asd;
var n,lvl,i : integer;
    f,g : text;

procedure ad(x:integer);
begin
lvl := lvl+1;
if x div 2 > 1 then ad(x div 2 +1);
end;


begin
lvl := 1;
assign(f,'sortare.in');
reset(f);
readln(f,n);
close(f);
assign(f,'sortare.out');
rewrite(f);
ad(n);
writeln(f,lvl);
for i := 1 to n do
write(f,i,' ');
close(f);
end.