Question

Дано натуральное число n. Вычислить произведение первых n сомножителей: ½*3/4*5/6*…(n-1)/n.
Нужно на Паскаль.​

Answer 1

var

 n,i:integer;

 p:real;

begin

 p:=1;

 i:=2;

 readln(n);

 if n>1 then

 begin

   repeat

     p:=p*(i-1)/i;

     i:=i+2;

   until i>n;

   writeln(p);

 end

   else writeln('error');

end.