Question

Помогите, пожалуйста

Answer 1

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

begin
  var n:=ReadInteger('Введите натуральное число, кратное 4:');
  var (s,z,k):=(0.0,1,n div 4);
  for var i:=1 to k do begin
    var m:=4*i;
    s+=z*(m-3)*(m-1)/(m-2+z*m);
    z:=-z
    end;
  Writeln('S = ',s)
end.

Пример
Введите натуральное число, кратное 4: 16
S = 120