Question

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

Answer 1

// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
begin
  var x1,y1,x2,y2,d1,d2:real;
  Write('Введите координаты x,y первой точки: ');
  Read(x1,y1);
  Write('Введите координаты x,y второй точки: ');
  Read(x2,y2);
  d1:=x1*x1+y1*y1; d2:=x2*x2+y2*y2;
  if d1<d2 then Writeln('Точка 1 ближе')
  else
    if d2<d1 then Writeln('Точка 2 ближе')
    else Writeln('Точки равноудалены')
end.

Тестовое решение:
Введите координаты x,y первой точки: 6 -4.7
Введите координаты x,y второй точки: -5.1 3.8
Точка 2 ближе