Question

Дано натуральное число n вычислить произведение первых n сомножителей 1/2 3/4 5/6, надо сделать блок схему помогите пожалуйста

Answer 1

Объяснение:

var ch,n,i:integer; {pr-произведение, ch-числитель}

    pr:real;

 

BEGIN

   readln(n);

   pr:=1;

   ch:=1;

   for i:=1 to n do  

      Begin

         pr:=pr*(ch/(2*i));

         ch=ch+2;

      End;

END