Вычислите сумму первых n элементов: 1-1\2+1\3-1\4+1\5-1\6+… Указание. Используйте внутри…

// сумма 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.