Дано целое число N (> 0). Вывести сумму 2 + 1/(2!) + 1/(3!) + ... + 1/(N!) (выражение N! — "N факториал" — обозначает произведение всех целых чисел от 1 до N: N! = 1•2•...•N). Полученное число является приближенным значением константы e = exp(1) (= 2.71828183...).
Язык: Delphi 7

var n,i:integer; f:longint; s:real;beginwrite('n = ');readln(n);f:=1; s:=2;for i:=2 to n do begin f:=f*i; s:=s+1/f; end;writeln('s = ',s);end.Пример:n = 10s = 2.71828180114638