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

Ответы на вопрос
Ответил 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.
Новые вопросы
Русский язык,
2 года назад
Қазақ тiлi,
2 года назад
Физика,
2 года назад
Физкультура и спорт,
2 года назад
Психология,
8 лет назад
Алгебра,
8 лет назад