Для заданного числа n составьте программу вычисления суммы s=1+1/2+1/3+1/4++1/ n, где n – натуральное число.
239
311
Ответы на вопрос:
Var i, n: integer; s: real; begin write('введите n: '); readln(n); for i: =1 to n do s: =s+1/i; writeln(s); end.
Популярно: Информатика
-
valiente12.12.2021 17:53
-
егор146509.02.2022 21:18
-
aigul24523.03.2023 16:52
-
Гектор3106.08.2022 05:30
-
magic000018.08.2020 01:46
-
raykova56807.09.2020 01:08
-
69TanyaKoT69myr26.09.2020 17:01
-
Kornella27.12.2021 21:10
-
boltushkin0108.11.2021 12:28
-
тисрлю18.08.2020 20:40