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

1
Любуй программу с while?
Дано число m>0. Найдите наибольшее целое k, такое что 4^k<m.
Дано число m>0. Найдите наибольшее целое k, такое что 4k<m.
поправочка
Поставь Лучший ответ плиз ;)

Ответы и объяснения

2013-12-19T20:06:27+04:00
Var m,k:integer;
begin
readln(m);
while 4*k<m do
k:=k+1;
writeln(k);
end.

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