Question

s=1+1/2+1/3+1/4+...+1/n
pascal. решить с циклом While

Answer 1

program abc;

var
  n, i: integer;
  s: real;

begin
  write('Введите n: ');
  readln(n);
  for i := 1 to n do
    s := s + 1 / i;
  write('s= ', s);
end.