(1+sin 0,1) (1+sin 0,2)*...*(1+sin 10)

Question

(1+sin 0,1) (1+sin 0,2)*...*(1+sin 10)

Answer 1

// 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