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

sasha16971 sasha16971    2   19.05.2019 05:24    0

Ответы
13angelob 13angelob  12.06.2020 11:17

Паскаль

Begin

Read(x);

While x>=1 do

Begin

X:= x div 2;

Count := count +1;

End;

Write(count).

End.

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

Нач

Ввод(х)

Нц Пока х>= 1

Х:=x div 2

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

Кц

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

Кон

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

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика