Question

Вычислите расстояние между двумя точками с данными координатами: (x1,y1) и (x2,y2)
Формула для нахождения расстояния: картинка снизу
И всё это в паскаль. Спасибо.

Answer 1

Program Rastoyanie;
var x1,x2,y1,y2,S:real;
begin
write('введите координаты');
readln(x1,x2,y1,y2);
S:=sqrt(sqr(x2-x1)+sqr(y2-y1));
writeln(s);
readln;
end.

Надеюсь на лучший ответ:)