Ответ(ы) на вопрос:
Гость// PascalABC.NET 3.1, сборка 1219 от 16.04.2016
begin
Print(1.To(100).Aggregate(1.0,(p,x)->p*(1+sin(x/10))))
end.
Результат:
1.72984094681772E-14
Не нашли ответ?
Похожие вопросы