Дано натуральное число N. Вычислить произведение первых N сомножителей. P=...

Question

Дано натуральное число N. Вычислить произведение первых N сомножителей. P= 2/3*4/5*6/7*...*2N/2N+1

Answer 1

//Pascal
var
  i, n: integer;
  p: real;

begin
  p := 1;
  readln(n);
  for i := 1 to n do p := p * 2 * i / (2 * i + 1);
  writeln(p);
end.