传送门
http://www.lydsy.com/JudgeOnline/problem.php?id=1192
题目大意
2k>n求最小k
var
i,n,ans:longint;
begin
readln(n); i:=1; ans:=0;
while i<n do
begin
i:=i*2;
inc(ans);
end;
writeln(ans);
end.
http://www.lydsy.com/JudgeOnline/problem.php?id=1192
2k>n求最小k
var
i,n,ans:longint;
begin
readln(n); i:=1; ans:=0;
while i<n do
begin
i:=i*2;
inc(ans);
end;
writeln(ans);
end.