Question

PascalABC. Заданное число либо уменьшается на 1, либо делится пополам если оно четное. Нужно получить 1 за наименьшее количество действий, напишите программу

Answer 1

Ответ на фото
Пример работы программы тоже на фото.

Приношу извинения за неудобства

Answer 2

Можешь написать команду, которой показывается за сколько действий было сделано число 1

Answer 3

После Writeln('введите чисисло') пиши строку: g:=0;

Answer 4

после "begin;" (перед IF) пиши строку: g:=g+1;

Answer 5

В конце, перед readln(a) пиши строку: writeln('Действий было сделано ',g);