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

Question

вычислите сумму первых n элементов:

1-1\2+1\3-1\4+1\5-1\6+...

Указание. Используйте внутри цикла оператор if odd(...) then ...

else ...

Answer 1

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