ДАМ 98 БАЛОВ Составьте пожалуйста программу паскаль решающую следующую задачу: Дано натуральное число n. Вычислить значение произведения P=2/3*4/5*6/7*...*2n/2n+1

Ответ:

uses crt;

var n:integer;

   a,b,x:real;

begin

write('n=');

 readln(n);

 x:=1;

for n:=1 to n do

  x:=x*((2*n)/(2*n+1));

writeln(' x=',x:4:1);

end.

или

uses crt;

var n:integer;

   a,b,x:real;

begin

write(' n='); readln(n);

for n:=1 to n do

x:=2*n/2*n+1;

writeln(' x=',x:4:1);

end.

Объяснение: