allekco

Вопрос 6

Oct 24th, 2019
25
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. var
  2. x, y: integer;
  3. begin
  4. readln(x);
  5. readln(y);
  6. if (x > 0) and (y > 0) then writeln('1');
  7. if (x < 0) and (y > 0) then writeln('2');
  8. if (x < 0) and (y < 0) then writeln('3');
  9. if (x > 0) and (y < 0) then writeln('4');
  10. if (x = 0) and (y = 0) then writeln('0');
  11. if (x > 0) and (y = 0) then writeln('14');
  12. if (x = 0) and (y > 0) then writeln('12');
  13. if (x < 0) and (y = 0) then writeln('23');
  14. if (x = 0) and (y < 0) then writeln('34');
  15. end.
RAW Paste Data