program RootEquation;
vax, result: real;
begix := 1; // начальное приближениrepearesult := power(5x, 0.2) + sqr(x) - tan(3x+1) - 3sqr(x) - 2x + 4x := x - Result / (0.2 power(5x, -0.8) + 2x - 3 - 6x - 2)until abs(result) < 0.0001;
writeln('Корень уравнения: ', x:0:5)end.
program RootEquation;
va
x, result: real;
begi
x := 1; // начальное приближени
repea
result := power(5x, 0.2) + sqr(x) - tan(3x+1) - 3sqr(x) - 2x + 4
x := x - Result / (0.2 power(5x, -0.8) + 2x - 3 - 6x - 2)
until abs(result) < 0.0001;
writeln('Корень уравнения: ', x:0:5)
end.