даны действительные числа a,b. Вывести на экран сообщение "Числа лежат в заданном промежутке", если они принадлежат интервалу (x0,x1] и "Числа вне интервала" в противном случае (приделы интервала x0 и x1 вводятся с клавиатуры)
Ответы
Ответ дал:
0
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.
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.
Похожие вопросы
2 года назад
2 года назад
7 лет назад
9 лет назад
9 лет назад
10 лет назад