Дано натуральное число n. написать программу для вычисления суммы 1/1+1/2+1/3++1/n
208
366
Ответы на вопрос:
Program n1; var n,i: integer; sum: real; begin sum: =0; readln(n); for i: =1 to n do sum: =sum+1/i; write(sum); end.
Популярно: Информатика
-
Чикчирик1224.03.2020 13:29
-
olesyapetrova816.09.2021 17:41
-
IlachinaViktori09.05.2022 11:17
-
dinara95121103.09.2020 18:24
-
evegn133111.01.2020 00:44
-
anisimovaanech13.10.2020 15:01
-
Karina115525.06.2021 00:26
-
dog1236124610.12.2022 22:02
-
Министрелия222230.05.2021 07:18
-
Timyr12367812.05.2022 01:23