program z1;
ar x,y:integer;
begin
readln(x);
readln(y);
if (x=0) and (y=0) then write(0)
else
begin
if (x>=0) and (y>=0) then write(1);
if (x<=0) and (y>=0) then write(2);
if (x<=0) and (y<=0) then write(3);
if (x>=0) and (y<=0) then write(4)
end
end.
Объяснение:
Если точка лежит в начале координат, т.е. х = 0 и у = 0, то выводим 0, иначе выводим какой четверти принадлежит точка, начиная с 1 четверти и по порядку.
Нестрогие условия (>= и <=) и оператор write (нет перехода на новую строку) позволяют выводить два номера четверти, если точка лежит на одной из осей, а расположение условий для четвертей по порядку позволяет соблюсти условие о том, что сначала необходимо выводить меньший номер.
какой ужасный код, просто катастрофа:
1) класс не может называться "=Program"
2) ты выведешь строку "sum1", а не то, что хранится в переменной sum1
3) зачем создавать переменные beer и whisky если они нигде не используются
4) Строки уже пьяны? Почему они так криво разбросаны по редактору? Читабельность нулевая
P.S.
Ты точно в программисты хочешь? Может все-таки на токаря? Хорошие токари всегда стране нужны