Procedure f(k n integer) begin inc(k). Бесплатный доступ к решению задач

Procedure f(k n integer) begin inc(k) .pdf

Зарегистрируйся в 2 клика в Кампус и получи неограниченный доступ к материалам с подпиской Кампус+ 🔥

Условие

Procedure f(k,n: integer); begin inc(k); if(k mod 2 = 0) and (n>0) then begin f(k,n div 3); write(n); f(k,n-k); end; if(k mod 2 <> 0) and (n>0) then begin f(k, n div 2); f(k, n-k-1); write(n); end; end;

Ответ

13114126

Решение

Потяни, чтобы посмотреть

Проследим рекурсивные вызовы:
f(0,6)
Выполняется условие if(k mod 2 <> 0) and (n>0):
f(1, 3)
Выполняется условие if(k mod 2 = 0) and (n>0)
f(2,1)
Выполняется if(k mod 2 <> 0) and (n>0)
f(3, 0)
f(3, -3)
Вывод 1
Вывод 3
f(2,1)
Выполняется if(k mod 2 <> 0) and (n>0)
f(3, 0)
f(3, -3)
Вывод 1
f(1, 4)
Выполняется условие if(k mod 2 = 0) and (n>0)
f(2,1)
Выполняется if(k mod 2 <> 0) and (n>0)
f(3, 0)
f(3, -3)
Вывод 1
Вывод 4
f(2,2)
Выполняется if(k mod 2 <> 0) and (n>0)
f(3, 1)
Выполняется условие if(k mod 2 = 0) and (n>0)
f(4,0)
Вывод 1
f(4,-3)
f(3, -2)
Вывод 2
Вывод 6
В результате получаем 13114126
Ответ: 13114126

50% задачи недоступно для прочтения

Переходи в Кампус, регистрируйся и получай полное решение

Получить задачу