Question

Помогите срочно решить задачу
В Pascal
S=1/2-2/3+3/4-5/6+....
Цикл

Answer 1

$var i,n:integer;\ s:real;\ begin\ s:=0;\ n:=10; \ for i:=1 to n do \ s:=s+power(-1,i div 2)*(i/(i+1));\ writeln(s);\ end.$
n-необходимая точность, 1000 хватает вполне (для типа реал)