Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

Написать решение этой задачи на языке Pascal.

Ответ оставил Гость

Var x,y: integer;
begin
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);
if (x>0) and (y<0) then writeln (4);
if (x=0) and (y=0) then writeln (1 2 3 4);
if (x=0) and (y>0) then writeln (1 2);
if (x=0) and (y<0) then writeln (3 4);
if (x>0) and (y=0) then writeln (1 4);
if (x<0) and (y=0) then writeln (2 3);
end.