РЕБЯТААА!!!!!ПОМОГИТЕ ПОЖАЛУЙСТАААААА!!!!!!!СОСТАВИТЬ Программку ПАСКАЛЬ.ВВЕСТИ КООРДИНАТЫ

В последующий раз буду знать,я размышлял это завлечет внимание,оказалось нет)

Завлекает. Капс приравнивается к клику. Орать без предпосылки - дурной тон.

А задачу это здесь 100 раз теснее решали, пользуйтесь поиском.

К раскаянья эту задачу я не отыскал(

А все так пишут. Про любые задачки. Этому сервису больше 5 лет, а задачи решают одни и те же раз в год.

Ну я собственно не лицезрел

Вы проверьте свое условие. Если Для вас надобно для 2-ух разных точек - это с подпрограммой надобно делать, а если два числа вводятся - координаты х и у точки - это поординарнее и конкретно такое решение давалось

Например, вот: https://znanija.com/task/29000986

Спасибо огромное)

Пожалуйста...

// PascalABC.NET 3.4.2, сборка 1785 от 06.09.2018

// Внимание! Если программка не работает, обновите версию!

procedure LocationPrint(x, y: real);

begin

 if x = 0 then

   if y = 0 then Writeln('Начало координат')

   else Writeln('Ось Y')

 else

 if y = 0 then Writeln('Ось X')

   else

 if x gt; 0 then

   if y lt; 0 then Writeln('4-ая четверть')

   else Writeln('Первая четверть')

     else

 if y lt; 0 then Writeln('3-я четверть')

 else Writeln('2-ая четверть')

end;

begin

 loop 2 do

 begin

   var (x, y) := ReadReal2('Введите координаты x и y:');

   LocationPrint(x, y)

 end

end.

Вот так к примеру:

program find_quarter;

var x, y: real;

begin

read(x);

read(y);

if (x gt; 0) and (y gt; 0) then writeln('1')

else if (x lt; 0) and (y gt; 0) then writeln('2')

else if (x lt; 0) and (y lt; 0) then writeln('3')

else writeln('4');

end.