Задание:
Дана точка A (x,y). Определить лежит ли эта точка в четвертой координатной четверти. Даны два числа, не равные друг другу. Заменить большее из нихмодулем суммы, а меньшее — разностью квадратов этих чисел. HELP ME!
Решение:
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,
Знаете другой ответ?