1178400
Объяснение:
Работал с кодом: (через массив)
var a,b:integer;
f:array [0..24] of integer;
begin
for var n:=1 to 24 do begin
if n=1 then
f[n]:=2;
if n>1 then
f[n]:=f[n-1]+f[n-2]+4*n;
end;
writeln (f[24]);
end.
Код с функцией.
function f(n:integer):integer;
if n=1 then result:=2
else if n>1 then result:=f(n-1)+f(n-2)+4*n
var n:integer;
readln (n);
writeln (f(n));
1178400
Объяснение:
Работал с кодом: (через массив)
var a,b:integer;
f:array [0..24] of integer;
begin
for var n:=1 to 24 do begin
if n=1 then
f[n]:=2;
if n>1 then
f[n]:=f[n-1]+f[n-2]+4*n;
end;
writeln (f[24]);
end.
Код с функцией.
function f(n:integer):integer;
begin
if n=1 then result:=2
else if n>1 then result:=f(n-1)+f(n-2)+4*n
end;
var n:integer;
begin
readln (n);
writeln (f(n));
end.