помогите пожалуйста вычислить сумму чисел 1-1/3+1/5-1/7+1/9 с точностью до п/4
есть начало программы
BEGIN
S:=0;
N:=1;
WHILE S<=PI/4 DO
BEGIN
S:=1/(2*N-1)+S
INC(N);  срочно нужно

а можно эту задачу решить через команду while?

Можно, а смысл какой? s:=0; sg:=1; i:=1; delta:=1; while delta>eps do begin delta:=1/(2*i-1); s:=s+(1/(2*i-1))*sg; sg:=-sg; i:=i+1; end; writeln('сумма: ',s);