Question

даны две точки на плоскости. Определите , какая из них находится ближе к началу
координат.

Answer 1

//PascalABC.Net 3.2
begin
var x1:=readreal ('x1 ='); var y1:=readreal ('y1 =');
var x2:=readreal ('x2 ='); var y2:=readreal ('y2 =');
if (sqr(x1)+sqr(y1))=(sqr(x2)+sqr(y2)) then write ('Равноудалены') else
if (sqr(x1)+sqr(y1))<(sqr(x2)+sqr(y2)) then write ('Первая') else write ('Вторая');
end.

Answer 2

Немного короче будет вычислить значение sqr(x1)+sqr(y1)-sqr(x2)-sqr(y2) и дальше проверять его на ноль, больше и меньше )))