Question

S=1-1/2+1/3-1/4+...+1/n - Pascal

Answer 1

Var i,n,s:integer;

begin

writeln ('Введите n');

readln(n);

s:=0;

for i:= 1 to n do

begin

S:=s+1/i;

end;

writeln('Сумма равна - ',s);

end.