Паскаль
Begin
Read(x);
While x>=1 do
Begin
X:= x div 2;
Count := count +1;
End;
Write(count).
End.
Алгоритмический:
Нач
Ввод(х)
Нц Пока х>= 1
Х:=x div 2
Счётчик:= счётчик+1
Кц
Вывод (счётчик)
Кон
Я в алгоритмическом не силен, посему будете осторожней
