Решите уравнение sin(x) = 1/x на отрезке [2; 3] с точностью 0,01.

Вот, например программа поиска корня уравнения методом ДИХОТОМИИ:program dichotom; uses Crt; var a, b, eps, xn, y, psy: real;     n: integer;function f(x:real):real; begin   f:=sin(x)-1/x;  end;begin ClrScr; a:=2; b:=3; eps:=0.01; n:=0; y:=f(a); while y>=eps do begin  n:=n+1;  xn:=(a+b)/2;  y:=f(xn);  if y>=eps then    if f(a)*y<0 then b:=xn else a:=xn; end; psy:=xn; WriteLn(' X = ',psy:5:2); ReadLn;end.