Составьте пожалуйста программу ** Паскаль Определить, имеет ли функция Y = SIN ( X )...

Question

Составьте пожалуйста программу на Паскаль

Определить, имеет ли функция Y = SIN ( X ) корень на отрезке X, X+1. Подсказка:
если функция имеет корень на данном интервале, то её значения на его границах
имеют разные знаки

Answer 1

// PascalABC.NET 3.2, сборка 1387 от 17.02.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var x:=ReadReal('x=');
  if sin(x)*sin(x+1)<=0 then Writeln('Корень есть')<br>  else Writeln('Корня нет')
end.