У исполнителя Калькулятор две команды, которым присвоены номера: 1. прибавь 1 2. прибавь 2 3. умножь на 4 Сколько есть программ, которые число 1 преобразуют в число 13? Ответ обоснуйте.

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

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

Var k : Integer;

Procedure Go(n : Integer; S : String);
Begin
  If n=13 then
  Begin
    Writeln(S);
    Inc(k);
  end
    else
    If n    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.