Поделитесь своими знаниями, ответьте на вопрос:
Дана точка a(x, y определить лежит ли эта точка в четвертой координатной четверти. даны два числа, не равные друг другу. заменить большее из них модулем суммы, а меньшее - разностью квадратов этих чисел. help !
var
x, y : real;
begin
read (x, y);
if (x > 0) and (y < 0) then writeln ('yes') else writeln ('no');
end.
не знаю только, как рассмотреть случай, если одна из координат = 0
var
a, b, c : real;
begin
if (a > b) then
begin
c : = a;
a : = abs (a + b);
b : = sqr (c) - sqr (b);
end
else
begin
c : = b;
b : = abs (b + a);
a : = sqr (c) - sqr (a);
end;
writeln (a, ' ', b);
end,