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
