const eps = 0.5e-5; x = 0.3;var y1, y2, s, x2, px, n, k, sgn: real;begin x2 := sqr(x); y1 := x; n := 3; px := x * x2; y2 := y1 + px / n; k := 2; sgn := -1; while abs(y2 - y1) > eps do begin px := px * x2; n := n + 2; k := k + 1; y1 := y2; y2 := y1 + sgn * (px / n); sgn := -sgn end; writeln('tg(x)=', y2, ' при ', k, ' членах суммы.')end.Тестовое решение:tg(x)=0.308543055857143 при 5 членах суммы.