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

Question

Информатика

Ануша

26 января, 08:40

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

+1

Ответы (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.