пожалуйста помогите написать программу, используя базовую структуру цикла с предусловием...

Question

пожалуйста помогите написать
программу, используя базовую структуру цикла с предусловием While.

Comments

Любуй программу с while?

---

Дано число m>0. Найдите наибольшее целое k, такое что 4^k<m.

---

Дано число m>0. Найдите наибольшее целое k, такое что 4k<m.

---

поправочка

---

Поставь Лучший ответ плиз ;)

Answer 1

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

Надеюсь на "Лучший ответ"

Comments

спасибо))