Решить по данному натуральному числу n найдите сумму чисел 1+1/1! +1/2! +1/3! ++1/n! . количество действий должно быть пропорционально n. входные данные задано единственное число n выходные данные необходимо вывести результат вычисления в виде действительного числа c точностью до 5 знаков после запятой. примеры входные данные 1 выходные данные 2
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.