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

YULEMESLEILAA YULEMESLEILAA    1   17.11.2019 17:53    8

Ответы
MilаKlimenkova MilаKlimenkova  10.10.2020 13:54

PascalABC.NET

begin

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

 repeat

   s += 1/i;

   i += 1

 until i > 1000;

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

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика