Question

Известны координаты двух точек на плоскости. Составить программу вычисления расстояния между ними
РАСПИШИТЕ ПОЖАЛУЙСТА ПОЛНОСТЬЮ ​

Answer 1

program sr;

var xa, xb, ya, yb, otv: real;

begin

 writeln('введите координаты первой точки через пробел ');

 readln(xa, ya);

 writeln('введите координаты второй точки через пробел ');

 readln(xb, yb);

 otv := Abs(sqrt(sqr(xa-xb)+sqr(ya-yb)));

 writeln('расстояние между точками =', otv)

end.