Написать программу на вычисление суммы бесконечного ряда 1 + 1/2 + 1/3+ ........ ЧЕРЕЗ ОПЕРАТОР FOR

1

Ответы и объяснения

2014-02-23T18:34:00+04:00
Var
  i,n:integer;
  sum:real;
begin
  readln(n);
  sum:=0;
  for i:=1 to n do
  begin
    sum:=sum+(1/i);
  end;
  writeln(sum);
end.