PersonalCorpus 版 (精华区)

154549 06:27:41 5 Mar 2002
Bozhang,HIT,P.R.China 1131 Pascal Accepted 0.02 sec 49K


var
    i,n,k,sum:integer;
begin
    readln(n,k);
    sum:=0; i:=1; dec(n);
    while n>0 do begin
        n:=n-i;
        inc(sum);
        i:=i+i;
        if i>k then begin inc(sum,(n+k-1) div k); break end;
    end;
    writeln(sum);
end.