Вычислите сумму n первых членов ряда на паскале

Question

Информатика: Вычислите сумму n первых членов ряда на паскале

алтуша9796 · Answer

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.

Объяснение: