Question

Составить программу для решения задачи, используя цикл «ДО». Условие задачи: Написать программу подсчета суммы S первых 1000 членов гармонического ряда 1+1/2+1/3+1/4+...1/N

Answer 1

===== PascalABC.NET =====

begin

 var (i, s) := (2, 1.0);

 repeat

   s += 1/i;

   i += 1

 until i > 1000;

 Print(s)  // должно получиться 7.48547086055034

end.