Найти произведение первых n чисел ряда: 1/2,3/4,5/6,7/8...
Найти произведение первых n чисел ряда: 1/2,3/4,5/6,7/8...
Гость
Ответ(ы) на вопрос:
Гость // PascalABC.NET 3.1, сборка 1204 от 24.03.2016
begin
var n:=ReadInteger('n=');
if n<=1 then Writeln(1)
else Writeln(Range(1.0,2.0*n-1,n-1).Aggregate(1.0,(prod,x)->prod*x/(x+1)))
end.
Тестовое решение:
n= 10
0.176197052001953
Не нашли ответ?
Похожие вопросы