У исполнителя Калькулятор две команды, которым присвоены номера: 1. прибавь 1 2. прибавь...

Question

У исполнителя Калькулятор две команды, которым присвоены номера:

1. прибавь 1

2. прибавь 2

3. умножь на 4

Сколько есть программ, которые число 1 преобразуют в число 13? Ответ обоснуйте.

Answer 1

Всего вариантов: 298

Обоснование:

Var k : Integer;

Procedure Go(n : Integer; S : String);
Begin
  If n=13 then
  Begin
    Writeln(S);
    Inc(k);
  end
    else
    If n<13 then<br>    Begin
      Go(n+1,S+'1');
      Go(n+2,S+'2');
      Go(n*4,S+'3');
    end;
end;

Begin
  k:=0;
  Go(1,'');
  Writeln('Всего вариантов: ',k);
end.