Question

Написать программу паскаль Найти сумму числовой последовательности S =1/2+1/3+1/4....+1/n​

Answer 1

Program n1;

var s: real;

i,n: integer;

begin

s:=0;

readln(n);

for i:=2 to n do s:=s+1/i;

writeln(s);

end.