Var a,b,x:integer;
Begin
Readln(a,b,x);
If (x>=a) and (x<=b) then writeln('Yes')
Else writeln('no');
End.
Поделитесь своими знаниями, ответьте на вопрос:
Написать программу на Паскале для реализации данного примера
Var a,b,x:integer;
Begin
Readln(a,b,x);
If (x>=a) and (x<=b) then writeln('Yes')
Else writeln('no');
End.