Проверить истинность высказывания: «Значение переменной х лежит на отрезке [a;b]».

Serjant0007

Проверить истинность высказывания: «Значение переменной х лежит на отрезке [a;b]». Заранее большое спасибо
1 ответ

Serjant0007

Var
a,b,x: Integer;
f: Boolean;
Begin
Write('Введите X: '); Readln(x);
Write('Введите отрезок [a;b]: '); Readln(a,b);
If (x>=a) And (x<=b) Then
f:=True;
Writeln(f);
Readln
End.