ДАМ 98 Раутов Составьте пожалуйста программку паскаль решающую следующую задачку: Дано

Ответ:

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.

Разъясненье: