Даны два числа A и B. Выведите на экран значение логического выражения , которое принимает значение true , если оба числа находятся в интервале (X ,Y) , и false - в противном случае
Var a,b,x,y:integer; begin writeln('Введите границы интервала [x,y]'); readln(x,y); writeln('Введите два числа a и b'); readln(a,b); writeln((a>x)and(a<y)and(b>x)and(b<y)); end.
Answers & Comments
Verified answer
Var a,b,x,y:integer;begin
writeln('Введите границы интервала [x,y]');
readln(x,y);
writeln('Введите два числа a и b');
readln(a,b);
writeln((a>x)and(a<y)and(b>x)and(b<y));
end.