Question

Решите через Паскаль, пожалуйста!

Answer 1

program fgg;

var
i, n: Integer;
s: Real;

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