Question

Помогите пожалуйста, очень нужно!! Дам 100 баллов, но он уменьшит в 2 раза!!! Заранее большое спасибо!!! (Там где написано пример, его нет)

Answer 1

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var (x,y):=ReadReal2('Введите координаты x и y:');
  if x=0 then
    if y=0 then Writeln('Начало координат')
    else Writeln('Ось Y')
  else
    if y=0 then Writeln('Ось X')
    else
      if x>0 then
        if y<0 then Writeln('Четвертая четверть')
        else Writeln('Первая четверть')
      else
        if y<0 then Writeln('Третья четверть')
        else Writeln('Вторая четверть')
end.