Народ нужна блок схема, выручает.

const eps=0.001;
var x, delta:real;
function f(x:real):real;
begin
f:=5*cos(x-1)-x*x;
end;
begin
x:=0;
delta:=2*eps;
while f(x)*f(x+delta)>0 do
x:=x+delta;
writeln ('x=',(x+eps):6:3);
end.​

AlexEremin2007    3   30.04.2020 12:38    3