Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

Помогите решить пожалуйста
По данному натуральному числу N найдите сумму чисел 1+1/1!+1/2!+1/3!+...+1/N!. Количество действий должно быть пропорционально N.
Входные данные
Задано единственное число N
Выходные данные
Необходимо вывести результат вычисления в виде действительного числа c точностью до 5 знаков после запятой.
Примеры
Входные данные
1
Выходные данные
2

Ответ оставил Гость

Var i,n: integer;
    s,t: real;
begin
  write(n = );  readln(n);
   s:=1; t:=1;  i:=1;
  repeat
    t:=t/i;
    s:=s+t;
    i:=i+1;
  until i>n;
  writeln(сумма ряда:  ,s:7:5);
end.