// сумма 2 членов ряда = 1- 1/2+1/3=0.83333333 примерно
Program SumPosl; Uses Crt; var i,n:integer; c:real; begin c:=1; clrscr; write('Введите n:' ); readln(n); for i:=2 to (n+1) do if odd(i)=false then c:=c-(1/i) else c:=c+(1/i); writeln('Сумма n членов ряда:',c:5:5); readkey; end.