Дано натуральное число N. Вычислить произведение первых N сомножителей. P= 2/3*4/5*6/7*...*2N/2N+1
Дано натуральное число N. Вычислить произведение первых N сомножителей. P= 2/3*4/5*6/7*...*2N/2N+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.
Не нашли ответ?
Похожие вопросы