Question

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

Answer 1

Var n,i:integer; f:longint; s:real;
begin
write('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 = 10
s = 2.71828180114638