Ответы
Ответ дал:
1
Объяснение:
program ideone;
var
x, i: Integer;
begin
read(x);
i := 0;
while (x > 0) do
begin
x := x shr 1;
inc(i);
end;
//нумерация с нуля
writeln(i-1);
end.
Вас заинтересует
4 месяца назад
4 месяца назад
6 месяцев назад
6 месяцев назад
2 года назад
7 лет назад
7 лет назад