Question

Дано целое число N(N>0). Найти сумму 1+(1+N)^2+(2+N)^2+....+(N+N)^2

Answer 1

$displaystyle S=1+(1+n)^2+(2+n)^2+...+(n+n)^2=1+sum_{i=1}^n(i+n)^2$

// PascalABC.NET 3.2, сборка 1389 от 01.03.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger('n=');
  var s:=1+Range(1,n).Select(i->sqr(i+n)).Sum;
  Writeln('S=',s)
end.

Пример
n= 10
S=2486

Answer 2

так можно короче)