Предмет: Информатика,
автор: Max5755
Помогите, пожалуйста, с программой
Приложения:

Ответы
Автор ответа:
1
Ответ:
38
function P(n:integer):integer; forward;
function S(n:integer):integer;
begin
if n > 3 then
S:=S(n-2)+P(n-2)+S(n-3)
else S:=n+3
end;
function P(n:integer):integer;
begin
if n > 3 then
P:=P(n-2)+S(n-2)+P(n-3)
else P:=4+n
end;
begin
write (P(6))
end.
Похожие вопросы
Предмет: Алгебра,
автор: тян16
Предмет: Алгебра,
автор: данил469
Предмет: Қазақ тiлi,
автор: асылай1
Предмет: Литература,
автор: Blanco2017
Предмет: Геометрия,
автор: Аноним