Question

Нужно срочно!!!
У исполнителя есть три команды, которым присвоены номера: 1. Прибавь 1 2. Прибавь 2 3. Умножь на 3 Сколько существует программ, которые преобразуют исходное число 1 в число 15, и при этом траектория вычислений содержит число 10 и не содержит числа 14?​

Answer 1

Ответ:

120

Объяснение:

var a:array[-10..15] of integer;

i:integer;

begin

 if i < 2 then a[i]:=0;

 a[2]:=1;

 for i:=3 to 10 do begin

   if i mod 3=0 then a[i]:=a[i-1]+a[i-2]+a[i div 3];

   if i mod 3 <> 0 then a[i]:=a[i-1]+a[i-2];

 end;

 for i:=-10 to 9 do

   a[i]:=0;

 for i:=11 to 15 do begin

   if i mod 3=0 then a[i]:=a[i-1]+a[i-2]+a[i div 3];

   if i mod 3 <> 0 then a[i]:=a[i-1]+a[i-2];

   a[14]:=0

 end;

 println(a[15])

end.