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

Question

Информатика

Юстиниан

16 августа, 03:52

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

+4

Ответы (1)

Знаете ответ на вопрос?

Остап · Answer 1

Var a, b, x0, x1:integer;

begin

writeln ('Введите числа a и b соотвественно') ;

read (a, b) ;

writeln ('Введите координаты x0 и x1') ;

read (x0, x1) ;

if (a>x0) and (ax0) and (b<=x1)

then writeln ('Числа лежат в заданном интервале') else

writeln ('Числа не лежат в заданном интервале') ;

end.