Advertisement
Guest User

Untitled

a guest
Feb 26th, 2020
105
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.53 KB | None | 0 0
  1. // координатные четверти
  2. var s, substr, maxsubstr:string;
  3. maxcount, count, i, flag, x1,y1, x2,y2:integer;
  4. begin
  5. readln(x1,y1);
  6. readln(x2,y2);
  7. // 1 четверть
  8. if(x1 > 0)and(y1 > 0)and(x2 > 0)and(y2 > 0) then
  9. writeln("YES")
  10. //2 четверть
  11. else if (x1 < 0)and(y1 > 0)and(x2 < 0)and(y2 > 0) then
  12. writeln("YES")
  13. //3
  14. else if(x1 < 0)and(y1 < 0)and(x2 < 0)and(y2 < 0) then
  15. writeln("YES")
  16. //4
  17. else if(x1 > 0)and(y1 < 0)and(x2 > 0)and(y2 < 0) then
  18. writeln("YES")
  19. else
  20. write("NO");
  21.  
  22. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement