Нужно построить трассировочную таблицу к этому алгоритму: var x, a, b, f, p :i nteger; s, c : real; begin writeln('Введите x'); read(x); s := 0; a:= 1; c:=1; while a 0 then begin c:= -1*(p/f); end {+ меняется на -} else if c < 0 then c := p/f; {- меняется на +} s := s - c; {считается сумма} writeln('a=', a, ', p/f=', p/f:2:2, ', s=', s:2:2, ', c=', c:2:2); a := a+2; end; writeln('s=', s:2:2); end. Также решение программы: x=3 a=1, p/f=3.00, s=3.00, c=-3.00 a=3, p/f=4.50, s=-1.50, c=4.50 a=5, p/f=2.02, s=0.53, c=-2.02 a=7, p/f=0.43, s=0.09, c=0.43 a=9, p/f=-0.65, s=-0.56, c=0.65 a=11, p/f=-3.62, s=-4.18, c=3.62 a=13, p/f=-1.61, s=-5.79, c=1.61 s=-5.79 Очень надо!!