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

Question

Информатика

Бландина

16 марта, 05:07

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

+5

Ответы (1)

Знаете ответ на вопрос?

Елистрат · Answer 1

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.