Question

Помогите решить задание по информатике

Answer 1

Ответ, найденный непосредственно (он же - контрольный пример) дан во вложении.

// PascalABC.NET 3.2, сборка 1457 от 29.05.2017
// Внимание! Если программа не работает, обновите версию!

begin
  Writeln(Range(1,50).Select(i->(i.IsOdd?1.0:-1.0)/(8*i*i*i)).Sum)
end.

Результат
0.112692349661229