Program gt; var p:real; a,b,w:integer; begin a:=-1; b:=1; w:=-1; while a<=103 do begin a:=a+2; b:=b+2; w:=w*-1; p:=p+1/a*b*w; end; writeln(p); end. 2) program gt; var p:real;a,b,w:integer; begin a:=-1;b:=1;w:=-1;p:=0; while a<=103 do begin a:=a+2; b:=b+2; w:=w*-1; p:=p+(1/(a*b))*w; end; writeln(p); <span>end. 1-первый случай 2-второй случай</span>