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

алина3734

08.03.2021 22:53

Информатика

Есть ответ 👍

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

139

328

Посмотреть ответы 2

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

lhimhenko2000

Информатика

4,4(43 оценок)

Program summa; var summ: real; n,i: integer; function fact(a: integer): integer; begin if a=1 then fact: =1 else fact: =fact(a-1)*a; end; begin readln(n); summ: =0; for i: =1 to n do summ: =summ+(1/fact(i)); writeln('summa n pervih chlenov posledovatelnosti ravna ',summ); end. писал на pascal abc