Question

KA11.
Найти расстояние между двумя точками на плоскости

Answer 1

Var
X1,Y1,X2,Y2:real;
Begin
Write('X1 = ');Read(X1);
Write('Y1 = ');Read(Y1);
Write('X2 = ');Read(X2);
Write('Y2 = ');Read(Y2);
Write('Расстояние между точками (',X1,';',Y1,') и (',X2,';',Y2,') = ',sqrt(sqr(X2-X1)+sqr(Y2-Y1)) )
End.