Подели круг четырьмя прямыми так,чтобы каждая птичка была отрезана от других прямыми.

Элементарное для младшей школы.

Ваша небрежность при записи к необходимости составить решение для двух выражений. соответственно, были найдены два корня. // pascalabc.net 3.1, сборка 1250 от 28.05.2016 function f1(x: real): =sin(x*x)+cos(x*x)-10*x; function f2(x: real): =1-10*x; function root(a,b,eps: real; f: real-> real): real; begin   var x,fx: real;   var fa: =f(a);   if abs(fa)< =eps then result: =a   else begin       var fb: =f(b);       if abs(fb)< =eps then result: =b       else           if fa*fb> 0 then result: =0/0           else               repeat                   x: =(a+b)/2;                   fx: =f(x);                   if abs(fx)< =eps then result: =x                   else                       if fa*fx> 0 then a: =x else b: =x;               until abs(fx)< =eps       end end; begin   var eps: =readreal('введите точность решения: ');   writeln('r1=',root(0,1,eps,f1));   writeln('r2=',root(0,1,eps,f2)) end. тестовое решение введите точность решения: 1e-7 r1=0.10101518034935 r2=0.0999999940395355