Cod sursa(job #665326)

Utilizator Dddarius95Darius-Florentin Neatu Dddarius95 Data 21 ianuarie 2012 22:24:57
Problema Peste Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.49 kb
program pestisorii;
type grupe=set of byte;
var n,a,b,x,p,i,j:longint; gr:array[1..10000]of grupe;
    z,k,nrg,acv,xx:integer;  v:array[1..100000]of longint;
    f,g:text;
begin
assign(f,'pesti.in');reset(f);
assign(g,'pesti.out');rewrite(g);
readln(f,n,x);
if n<=0 then writeln(g,1);
if (n=1)or(n=2) then writeln(g,2);
if n>=3 then
begin
p:=1; z:=-1;
while p<n do begin
             inc(z);
             p:=p*2;
             end;
writeln(g,z,' ');
end;
close(f);close(g);
end.