Question

Информатика, нужна помощь(паскаль или эксель)!

F(n)= n3+ n2+1 при n<14

F(n)=F(n–1)+2∗n2−3 при n>13 , кратных 3

F(n)=F(n–2)+3∗n+6 при n>13 , не кратных 3
нужен код, ответ и так есть.

Answer 1

Задача решалась с оговоркой о том, чт n3 и n2 означают $n^{3}$ и $n^{2}$

function f(n: integer): integer;

begin

 if n < 14 then

   f := n * n * n + n * n + 1

 else

 if n mod 3 = 0 then

   f := f(n - 1) + 2 * n * n - 3

 else

   f := f(n - 2) + 3 * n + 6;

end;

var

 n: integer;

begin

 readln(n);

 writeln(f(n));

end.