Pagini recente » Cod sursa (job #710612) | Cod sursa (job #1312472) | Cod sursa (job #2281395) | Cod sursa (job #1649406) | Cod sursa (job #665326)
Cod sursa(job #665326)
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.