• Вопрос по информатике:

    Для заданного числа N составьте программу вычисления суммы S=1+1/2+1/3+1/4+…+1/N, где N – натуральное число через repeat

    • Автор:

      dickens

  • program raf105;

    var  

     i,n: integer;

     s: real;

    begin

    write('N = ');

    readln(n);

    repeat

     i:= i+1;

     s:= s+1/i;

    until i=n;

    writeln('Сумма: ',s);

    end.

    PascalABC 3.4.2

    • Отвечал:

      fidohiggins
    • 0

    Ответов нет, но ты это испарвиш!

Еще 4 ненужных тебе вопроса, но это важно для поиска