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

Question

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

Comments

условие неполное

---

при котором 4^k

---

а дальше что

---

< m

Answer 1

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

Пример:
500
4