Сформулировать условие var x1, y1, x2, y2, r1, r2: real; begin write('введите координаты первой и второй точек: '); readln(x1, y1, x2, y2); r1: = sqrt(x1*x1+y1*y1); r2: = sqrt(x2*x2+y2*y2); if r1=r2 thenwriteln('точки находятся на одинаковом расстоянии от начала координат') elseif r1> r2 thenwriteln('точка b находится ближе к началу координат') elsewriteln('точка a находится ближе к началу координат') end.
Пример входных данных:
1 1 2 2
Пример выходных данных:
Точка A находится ближе к началу координат
Если точки находятся на одинаковом расстоянии, вывести 'Точки A и B находятся на одинаковом расстоянии от начала координат'.