Сколько существует программ, которые преобразуют исходное число 1 в

Решение по шагам

1. 1

   Как рассуждать

   Решение. Решим задачу с помощью языка программирования PascalABC. Напишем рекурсивную функцию, подсчитывающую необходимое количество программ. Учтём, что в программе не должно повторяться две команды умножения подряд. Для этого введём булевую переменную multiplied. Приведём код решения:function F(x, y: integer; multiplied: boolean): integer; begin if x = y then F := 1 else if x > y then F := 0 else if multiplied = False then F := F(x + 1, y, False) + F(x + 2, y, False) + F(x * 2, y, True) else if multiplied = True then F := F(x + 1, y, False) + F(x + 2, y, False); end;begin writeln(F(1, 11, False));end.Таким образом, количество программ, удовлетворяющих условию задачи и выведенное на экран, равно