Предмет: Информатика, автор: Max5755

Помогите, пожалуйста, с программой

Приложения:

Ответы

Автор ответа: tyngpuk
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
Предмет: Литература, автор: Blanco2017