Помогите составить программу решения задачи в паскаль АВС.
Дано целое числоN( больше 0).Найти сумму N квадрат +( N +1) квадрат+(N +2) квадрат + ...+ ( 2умножитьN) квадрат ( целое число)

1
Точно умножить?
Как-то я не понял задачу:)

Ответы и объяснения

2013-10-22T07:38:27+00:00
Var x, i, n: integer;
begin
     readln(n);
     for i := 0 to sqr(2 * n) do
         x := x + sqr(N + i);
     writeln(x);
end.

Наверное, Вы это имели в виду=)