Ответы на вопрос:
Var i, n, j: integer; a, s: real; begin readln(n); for i : = 1 to n do begin a : = 1; for j : = 1 to 3 * i do a : = a * 1 / i; s : = s + 1 / a; end; writeln(s: 5: 3); end.
Популярно: Информатика
-
TikhonOFF05.01.2020 14:45
-
Kirillik1709127.03.2021 13:28
-
kuliksvera02.12.2022 22:10
-
chip052317.02.2023 22:51
-
Ro4KKy11.01.2023 12:39
-
koooool04.10.2021 16:07
-
РукиКрабы11111111131.08.2021 16:03
-
Nicalay07.11.2021 09:10
-
Марина361116.01.2023 23:08
-
Kfhjrhnf14.09.2020 04:00