Составить программу для решения , используя цикл - вопрос №10193861 от katyaumnicka55 23.01.2021 10:58

Question

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

katyaumnicka55 · Answer

PascalABC.NET begin  var (i, s) := (2, 1.0);  repeat    s += 1/i;    i += 1  until i 1000;  Print(s)  // должно получиться 7.48547086055034end....