Ответы на вопрос:
Function f(x: integer): real; begin if x=0 then f: =1 else f: =x*f(x-1); end; var n,i: integer; sum: real; begin readln(n); sum: =0; for i: =1 to n do sum: =sum+1/f(i); write(sum); end.
Популярно: Информатика
-
slaadkoo12.04.2023 06:27
-
ЕлизаветаАлис06.02.2023 19:44
-
VikiNiki2321.11.2021 17:10
-
индокролбак05.05.2023 22:27
-
Unik200228.04.2022 21:33
-
Degradant8128.05.2020 13:04
-
mashadadihf01.09.2020 07:26
-
tinkimolko19.04.2023 14:55
-
SanyaLe926.10.2020 22:48
-
galaktionov96403.01.2021 09:09