Составить программу для решения задачи, используя цикл «ДО». Условие задачи: Написать программу подсчета суммы S первых 1000 членов гармонического ряда 1+1/2+1/3+1/4+...1/N
Ответы
Ответ дал:
1
===== PascalABC.NET =====
begin
var (i, s) := (2, 1.0);
repeat
s += 1/i;
i += 1
until i > 1000;
Print(s) // должно получиться 7.48547086055034
end.
Вас заинтересует
4 месяца назад
4 месяца назад
6 месяцев назад
6 месяцев назад
2 года назад