Дано натуральное число N. Вычислить: P=2/34/56/7…2*N/(2N+1)

Дано натуральное число N. Вычислить: P=2/3*4/5*6/7*…*2*N/(2N+1)

var i,n,j,a:integer;
p:real;
begin
writeln ('введите целое число');
readln (n);
i:=2;
j:=3;
p:=1;
a:=n;
while a<=2*n do begin
 p:=p*i/j;
 i:=i+2;
 j:=j+2;
 a:=a+2;
end;
writeln ('произведение=',p);
end.

var i,n,j,a:integer;

p:real;

begin

writeln ('введите целое число');

readln (n);

i:=2;

j:=3;

p:=1;

a:=n;

while a<=2*n do begin

p:=p*i/j;

i:=i+2;

j:=j+2;

a:=a+2;

end;

writeln ('произведение=',p);

end.

Дано натуральное число N. Вычислить: P=2/34/56/7…2*N/(2N+1)

Похожие записи:

Добавить комментарий Отменить ответ