Question

Паскаль (9 класс!) Напишите программу вычисления расстояния между двумя точками плоскости

Answer 1

Program Distance;
Var
X1, Y1, X2, Y2, D: Real;
Begin
WriteLn('Введите координаты первой точки');
ReadLn(X1, Y1);
WriteLn('Введите координаты второй точки');
ReadLn(X2, Y2);
D := Sqrt(Sqr(X2 - X1) + Sqr(Y2 - Y1));
WriteLn('Расстояние между точками = ', D:2:2);
ReadLn;
End.