Написать программу в паскале: 1. Проверить принадлежность числа х к интервалам [a; b] или [c; d].

Question

Информатика

Генриетта

16 января, 17:15

Написать программу в паскале: 1. Проверить принадлежность числа х к интервалам [a; b] или [c; d].

+4

Ответы (1)

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

Вербния · Answer 1

Var a, b, x:integer;

begin

writeln ('введите число x:') ;

readln (x) ;

writeln ('введите интервал от a до b:') ;

readln (a, b) ;

if (x>=a) and (x<=b) then writeln ('x принадлежит данному интервалу') else

writeln ('x не принадлежит данному интервалу') ;

readln;

end.