SHARE
TWEET

Вопрос 6

allekco Oct 24th, 2019 15 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
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!
 
Top