7792
Объяснение:
Прога:
var a,b:integer;
f:array [0..39] of integer;
begin
for var n:=1 to 39 do begin
if n=1 then
f[n]:=2;
if n>1 then
f[n]:=f[n-1]+5*n*2
end;
writeln (f[39]);
end.
7792
Объяснение:
Прога:
var a,b:integer;
f:array [0..39] of integer;
begin
for var n:=1 to 39 do begin
if n=1 then
f[n]:=2;
if n>1 then
f[n]:=f[n-1]+5*n*2
end;
writeln (f[39]);
end.