Определить количество шагов деления четного числа на 2 пока оно не станет равно 1

спасибо заранее

Ответ:

Паскаль

Begin

Read(x);

While x>=1 do

Begin

X:= x div 2;

Count := count +1;

End;

Write(count).

End.

Алгоритмический:

Нач

Ввод(х)

Нц Пока х>= 1

Х:=x div 2

Счётчик:= счётчик+1

Кц

Вывод (счётчик)

Кон

Я в алгоритмическом не силен, посему будете осторожней