Ответы
Ответ дал:
0
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
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
Похожие вопросы
2 года назад
2 года назад
2 года назад
2 года назад
8 лет назад
8 лет назад
9 лет назад
9 лет назад