Ответы на вопрос:
Var i,n: integer; s: real; begin readln(n); for i: =1 to n do s: =s+1/i; writeln(s: 4: 2); end.
Популярно: Информатика
-
SteveDog8612.04.2023 23:46
-
PaPaDeDa03.03.2021 20:23
-
длвшуаблв01.12.2021 07:48
-
Sehunjungkook21.05.2020 15:25
-
anastasiya25828.11.2021 13:43
-
boglaevab27.08.2022 04:17
-
edikmarik27.05.2020 09:36
-
Не00728.09.2022 20:16
-
123288813.01.2022 07:02
-
nastya03051304.03.2020 15:41