Нужно срочно!!!
У исполнителя есть три команды, которым присвоены номера: 1. Прибавь 1 2. Прибавь 2 3. Умножь на 3 Сколько существует программ, которые преобразуют исходное число 1 в число 15, и при этом траектория вычислений содержит число 10 и не содержит числа 14?
Answers & Comments
Ответ:
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.