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

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 ('Вторая');<br>end.

Comments

//теорема Пифагора, 8 класс))