[Shuuuuter]

задача:Дано целое число N(>0). Найти сумму N^2+(N+1)^2+(N+2)^2+...+(2N)^2 - (целое число).
вот мое решение:

Код:

var a,e,d:real;
n,i:integer;
begin
read(n);
d:=n*n;
e:=1;
while e<>n do
begin
d:=d+sqr(d+e);
e:=e+1;
end;
write(d);
end.

я решаю онлайн. сдаю че то не принемет

[Shuuuuter]

нашел ошибку) можно закрыть)

[lmikle]

Вот так проще:

Код:

program Test;

{$APPTYPE CONSOLE}

var
  D, I, S : Integer;
begin
  write('Input N='); readln(N);
  
  S := 0;
  for I := 0 To N Do
    S := S + sqr(N+I);

  writeln('Sum=',S);
end.