Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.