Advertisement
Guest User

Untitled

a guest
Sep 28th, 2016
61
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.24 KB | None | 0 0
  1. var
  2.   y, x: real;
  3.  
  4. begin
  5.   writeln('Введите х и у');
  6.   readln(x, y);
  7.   if (x >= 0) and (x <= 10) and (y >= 0) and (y <= 5) then
  8.     writeln('Принадлежит')
  9.   else
  10.     writeln('Не принадлежит');
  11. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement