Вычислите сумму n первых членов ряда S= 1+1/2 + 1/3 +... 1/n. Срочно, пожалуйста ​на паскале

Ответ:

program ruslanchomaev;

var n,i:integer; s:real;

begin

writeln('Введите кол-во членов');

readln(n);

s:=0;  

for i:=1 to n do

 s:=s+1/i;

writeln('сумму n первых членов ряда=',s:3:3);

end.

Объяснение: