Дано целое положительное значение (m). Требуется вычислить сумму:
1+1/1!+1/2!+1/3!...+1/m!

varfactm:longint;m,i:byte;sum,y:real;beginsum:=0;factm:=1;write('Введите значение m=');read(m);for i:=2 to m dofactm:=factm*i;y:=(1/factm);sum:=sum+y;writeln('Сумма=',sum);end.

var    i, m: integer;    f:longint;    s: real;begin    readln(m);    f := 1;        for i := 1 to m do     begin        f := f * i;        s := s + 1 / f;    end;    writeln(s);end.