Помогите решить задачу в Паскале

[Alexxxxxxx]

Помогите решить задачу в Паскале

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

 

[Vladimir_S]

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

Прежде всего, спасибо за то, что просветили нас, неразумных, что такое факториал и чему равно число е - а то мы и не ведали про то! Что же касается предложенной сверхсложной задачи, то путём приложения неимоверных интеллектуальных усилий удалось получилть следующее:

VAR
 S,a:Real;
 N,i:Word;
BEGIN
 Write('N= ');
 Readln(N);
 S:=1;
 a:=1;
 For i:=1 to N do
  begin
   a:=a/i;
   S:=S+a;
  end;
 Writeln('S= ',S:10:8);
 Readln;
END.