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.