
Радиевич
6 год назад
Даны a и n. Вычислите S = (a+1)^2+(a+2)^2+…+(a+n)^2 в Паскале,очень нужно прошу помогите
ОТВЕТЫ

Милославович
Jul 26, 2019
// PascalABC.NET 3.2, сборка 1338 от 16.11.2016
begin
var n:=ReadInteger(n=);
var a:=ReadReal(a=);
Writeln(S=,SeqGen(n,i-gt;sqr(a+i),1).Sum)
end.
Пример
n= 10
a= 3.7
S=928.9
begin
var n:=ReadInteger(n=);
var a:=ReadReal(a=);
Writeln(S=,SeqGen(n,i-gt;sqr(a+i),1).Sum)
end.
Пример
n= 10
a= 3.7
S=928.9
273