program l62; {$APPTYPE CONSOLE} uses SysUtils,math; const n=2700; h=0.001; var res,p,t:real; nn:longint; function f(x:real):real; var xx:real; begin xx:=sqr(x); result:=10-(2*power(xx*x,3)+7*xx-3*xx*xx)*sin(12*x); end; begin res:=-1; nn:=0;p:=-1.5; while nn0) then if (res<0) then res:=t else if (res>t) then res:=t; inc(nn); end; if res<0 then writeln('No such root') else writeln(res:4:2); readln; end.