Составить программу для решения , используя цикл «до». - вопрос №10194036 от 5nelli 04.05.2020 19:17

Question

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

5nelli · Answer

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