Составить программу, выполняющую расчет следующей суммы 1^2+2^2+3^2+…+n^2. Значение n определяется из условия n = 2*х, где значение х вводится пользователем при работе с программой — Pascal(Паскаль)

var
  x: longint;
  i: longint;
  s: longint;

begin
  read(x);
  x := x * 2;
  s := 0;
  for i := 1 to x do
    s := s + i * i;
  write(s);
  read

end.

Leave a Comment

61 − 52 =