Ответы на вопрос:
Var n,i: integer; f: longint; s: real; begin write('n = '); readln(n); f: =1; s: =2; for i: =2 to n do begin f: =f*i; s: =s+1/f; end; writeln('s = ',s); end. пример: n = 10 s = 2.71828180114638
Популярно: Информатика
-
mashacat557131.05.2022 22:09
-
aaaaanastya9221.01.2023 05:30
-
Фиаско133705.11.2022 16:10
-
незнаю17804.04.2022 05:56
-
latuk2715.05.2021 15:43
-
anita456601.05.2022 19:27
-
Semenbabinov323.10.2022 17:30
-
caesar203.12.2021 15:03
-
24674124808.02.2020 00:32
-
linabananchik25.01.2022 02:44