var
x, y : real;
begin
read (x, y);
if (x > 0) and (y < 0) then writeln ('Yes') else writeln ('No');
end.
Не знаю только, как рассмотреть случай, если одна из координат = 0
a, b, c : real;
if (a > b) then
c := a;
a := abs (a + b);
b := sqr (c) - sqr (b);
end
else
c := b;
b := abs (b + a);
a := sqr (c) - sqr (a);
end;
writeln (a, ' ', b);
end,
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,