Question

X принадлежит (-1;11] ПАСКАЛЬ нужно через if написатьт программу x принадлежит и x не принадлежит

Answer 1

Var
  x : real;
begin
  read (x);
  if (x > -1) and (x <= 11) then write ('принадлежит') else write ('не принадлежит');
end.