У исполнителя Калькулятор две команды, которым присвоены номера: 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<13 then     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.