Question

решить задачу в цикле for или while через Pascal
N^2+(n+1)^2+(n+2)^2+...+(2n)^2

Answer 1

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

1. Современное решение

PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger('n=');
  Writeln('S=',SeqGen(n+1,i->Sqr(n+i)).Sum)
end.

Пример
n= 5
S=355

2. Примерно так часто учат в школе

var
  s,i,n:integer;

begin
  Write('n= ');
  Read(n);
  s:=0;
  for i:=0 to n do
    s:=s+Sqr(n+i);
  Writeln('S=',s)
end.

Answer 2

Если что-то отображается некорректно, обновите страницу.