Else информатика

Задача

Проверить принадлежит ли число x и y. Промежутку [a, b]

.

Var x, y, a, b:real;

Begin

Write ('a = ') ;

ReadLn (a) ;

Write ('b = ') ;

ReadLn (b) ;

Write ('x = ') ;

ReadLn (x) ;

Write ('y = ') ;

ReadLn (y) ;

if (a<=x) and (x<=b) and (a<=y) and (y<=b) then WriteLn (x,' и ', y,' ∈ [', a,',', b,']')

else WriteLn (x,' и/или ', y,' не ∈ [', a,',', b,']')

End.