1+1/2-2/3+3/4 ... написать программу для вычисления суммы ряда

program zz1;

var

i, n:integer; / / задаем переменные целого типа

s:real; / / задаем переменную не целого типа

begin

write (' введите до какого n считаем сумму ряда ');

read (n); / / вводим с клавиатуры n

s:=1; / / задаем начальное значение суммы ряда

for i:=1 to n do / / организуем цикл до числа n

begin

if i mod 2 = 1 then s:=s+i / (i+1) / / проверяем, если параметр цикла четный, то прибавляем часть ряда

else s:=s-i / (i+1); / / если не четный, то вычитаем часть ряда

end;

writeln (' полученная сумма ряда = ', s); / / выводим ответ

end.