{
Вводимые данные:
________________________
OT: -1.2
DO: 4.6
TOCNOSTI: 0.0002
}
Program PascalGuru;
function f(x: real): real;
begin
f := sin(x) - cos(0.5 * x) + (2 * x);
end;
{ ------------------------- }
var
otk, dok, toc: real;
i: real;
begin
write('OT: ');
readln(otk);
write('DO: ');
readln(dok);
write('TOCNOSTI: ');
readln(toc);
repeat
writeln(otk: 14: 4, ': ', f(otk): 0: 4);
if (f(otk) > 0) and (f(otk) < toc) then
break;
otk := otk + toc;
until otk >= dok;
writeln;
writeln('Otvet: x= ', otk:0:4);
readln;
end.