Составить программу для решения , используя цикл - вопрос №10194538 от Verenea 06.02.2023 17:33

Question

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

Verenea · Answer

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