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

Question

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

Answer 1

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.

Answer 2

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