Question

Дано целое число m>1. Получить наибольшее целое k, при котором 4^k<m

Answer 1

Var m,mk,k:integer;
begin
readln(m);
k:=0;
mk:=1;
while mk<m do
 begin
 mk:=mk*4;
 k:=k+1;
 end;
k:=k-1;
writeln(k);
end.

Пример:
500
4