В паскале??
да
Пару мин
спасибоо:))
Program a1; uses crt; var x,y:integer; begin clrscr; writeln (' v vedite dva chisla'); readln (x,y); if x>0 and y>0 then writeln ('1'); if x<0 and y>0 then writeln ('2'); if x<0 and y<0 then writeln ('3');<br>if x>0 and y<0 then writeln ('4');<br>readln; end.
спасибо