Найти произведение первых n чисел ряда: 1/2,3/4,5/6,7/8...

Найти произведение первых n чисел ряда: 1/2,3/4,5/6,7/8...
Гость
Ответ(ы) на вопрос:
Гость
var a1,a2,n,i:integer;          p:real; begin readln(n); a1:=1; a2:=2; p:=a1/a2; for i:=2 to n do begin a1:=a1+2; a2:=a2+2; p:=p*(a1/a2); end; writeln(p); end.
Гость
// 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
Не нашли ответ?
Ответить на вопрос
Похожие вопросы