1513970
Объяснение:
var a,b:integer;
f:array [0..25] of integer;
begin
for var n:=1 to 25 do begin
if n=1 then
f[n]:=2;
if n>1 then
f[n]:=f[n-1]+F[n-2]+2*n+4;
end;
writeln (f[25]);
end.
1513970
Объяснение:
var a,b:integer;
f:array [0..25] of integer;
begin
for var n:=1 to 25 do begin
if n=1 then
f[n]:=2;
if n>1 then
f[n]:=f[n-1]+F[n-2]+2*n+4;
end;
writeln (f[25]);
end.