Question

Составить на Паскале программу для вычисления суммы ряда (см. рисунок).

Число N вводится с клавиатуры.

Протестировать программу для N=1, N=2, N=4, N=6. Правильность ответов проверить с помощью калькулятора.

 

 

 

 

Answer 1

var s,a: real;

      n,i:integer;

begin

  s:=0;

  readln(n);

  for i:=1 to n do begin

    a:=1/i;

    s:=s+a;

                         end;

  writeln(s:0:5);

end.