Question

даны координаты двух точек A(x1,y2) и B(x2,y2) в прямоугольной системе координат.Какая из этих двух точек находится дальше от начала координат?

Answer 1

var
x1,x2,y1,y2:real;
begin
writeln('Введите координаты точки А');
readln(x1,y1);
writeln('Введите координаты точки В');
readln(x2,y2);
if (sqrt(sqr(x1)+sqr(y1)))>(sqrt(sqr(x2)+sqr(y2)))  then
writeln('А дальше')
else
if (sqrt(sqr(x1)+sqr(y1)))<(sqrt(sqr(x2)+sqr(y2)))  then
writeln('В дальше')
else
writeln('Расстояние одинаковое');
end.