Question

Составьте программу, которая находит сумму чисел, обратных числам целым числам от 1 до N, т.е. S=1/1+1/2+1/3+...+1/N.

Answer 1

program abc;

var
  n, i: integer;
  s: real;

begin
write('Введите количество чисел: ');
  readln(n);
  for i := 1 to n do
    s := s + 1 / i;
  write('Сумма обратных чисел = ', s);
end.