Написать блок-схемы для программы, которая ведёт значение переменной n и посчитает сумму ряда от следущего 1/1 +1/1*2 . + 1/1*2*3*.n

Написать блок-схемы для программы, которая ведёт значение переменной n и посчитает сумму ряда от следущего 1/1 +1/(1*2) ... + 1/(1*2*3*...n)

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

      begin

  • var

        Summ := Summ + 1 / fact;

          fact := fact * j;

    begin

  • var
    n,z,i:integer;
    s:real;
    begin
    readln(n);
    z:=1;
    for i:= 1 to n do begin
    z:=z*i;
    s:=s+1/z;
    end;
    writeln(S);
    end.

  •   summ:real;

        for j := 2 to i do

      i, j,fact, n:integer;

    end.

      summ := 0;

        fact := 1;

      writeln('Summ = ', Summ);

     

      for i := 1 to n do

      end;