Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

Даны действительные числа a,b. Вывести на экран сообщение "Числа лежат в заданном промежутке", если они принадлежат интервалу (x0,x1] и "Числа вне интервала" в противном случае (приделы интервала x0 и x1 вводятся с клавиатуры)

Ответ оставил Гость

Var a,b,x0,x1:integer; 
begin 
writeln(Введите числа a и b соотвественно); 
read(a,b); 
writeln(Введите координаты x0 и x1); 
read(x0,x1); 
if (a>x0) and (a<=x1) and (b>x0) and (b<=x1) 
then writeln(Числа лежат в заданном интервале) else 
writeln(Числа не лежат в заданном интервале); 
end.