Составить программу для вычисления суммы ряда 1/1!+ 1/2! +.. .+Аа

Question

Составить программу для вычисления суммы ряда 1/1!+ 1/2! +.. .+Аа

Экономика

Гость

Ответ(ы) на вопрос:

Accepted Answer

var n, i, fact:integer; summ:real; begin write('n = '); readln(n); fact := 1; summ := 0; for i := 1 to n do begin fact := fact * i; summ := summ + 1 / fact; end; writeln('Сумма ряда равна ', summ); end.