Ответы на вопрос:
Возможны небольшие ошибки var a,b,s,n,i: integer; begin readln (n); s: =1 for i: =1 to n do begin b: =0; for a: =1 to i do b: =b+2; end; s: =s+1/b; end; writeln (s); end.
Популярно: Информатика
-
kuchin11928.03.2021 17:42
-
kkatya32221.03.2020 21:26
-
Арте2026.02.2022 09:16
-
mia7328.02.2022 07:06
-
Prostoy2310.02.2020 12:44
-
ка56612.11.2020 16:50
-
11Аслан1126.02.2023 17:25
-
Kristina300212.07.2021 06:36
-
hhggg112.12.2022 06:06
-
Bikoshm19.08.2022 18:29