1 – 1/3 + 1/5 – 1/7 + 1/9 – … ± 1/(2n – 1) ≈ π/4.

[tron19]

1 – 1/3 + 1/5 – 1/7 + 1/9 – … ± 1/(2n – 1) ≈ π/4. решение в паскале

[Stilet]

const n=10;
var p4:double; i,si:integer;
begin
 si:=1; 
 for i:=1 to n do begin
  p4:=p4+si*(1/(2*i-1)); si:=-si;
 end;
 Write(p4); readln;
end;

Годится?