Question

Разработать схему алгоритма для вычисления суммы ряда:S=1/2+1/3+1/4....1/N.Число N вводится с клавиатуры. Протестировать алгоритм для N=1, N=2, N=4, N=6. Правильность ответов проверить с помощью калькулятора.

Answer 1

var N, i: integer;
    S: real;
Begin
     writeln('N = ');
     readln(N);
     for i := 2 to N do
     begin
          S := S + 1 / i;
     end;
     writeln('> ', S);
end.

Тогда так)