В паскале задача

[Alexxxxxx]

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

[iCaesy]

Что непонятного ?)

[Alexxxxxx]

Сообщение от iCaesy

Что непонятного ?)

Капец вообще не врубаюсь как решить эту задачу ((( Помоги составить программу , плз !!!

[dosha]

function factorial(n: integer): integer;
begin
if n > 1
then factorial := n * factorial(n-1) // функция вызывает сама себя
else factorial:= 1;  // факториал 1 равен 1
end;

var
N,i:integer;
S:real;
begin
s:=0;
for i:=0 to N do
s:=s+1/factorial(i);
end.

вроде как бэ так, остальное сам дописуй

[Serge_Bliznykov]

dosha
в подобных задачах НЕ НУЖНО считать факториал. достаточно заметить, что каждый следующий член последовательности содержит знаменатель равнный предыдущему умноженному на N
сравните:

var i, N : integer;
  s, znam : extended;
begin
  Readln(N);
  s := 2;
  znam := 1;
  for i:=2 to  N do begin
    znam := znam * i;
    s := s + 1/znam;
  end;
  WriteLn(s:0:18);
  readln;
end.

[dosha]

Serge_Bliznykov можно и так. эть первое, что взбрело в голову