Begin20. Найти расстояние между двумя точками с заданными координатами (x1, y1) и (x2, y2) на плоскости. Расстояние вычисляется по формуле:
Begin20. Найти расстояние между двумя точками с заданными координатами (x1, y1) и (x2, y2) на плоскости. Расстояние вычисляется по формуле: . var x1, y1, x2, y2, d: real; begin
write('Введите координаты двух точек: (x1, y1) и (x2, y2) ->');
readln(x1, y1, x2, y2);
d:=sqrt(sqr(x2-x1)+sqr(y2-y1));
writeln('Расстояние между точками = ', d:6:2); end.