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

Вычислить расстояние между двумя точками с координатами х1,у1 их2,у2.паскаль

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

Var x1,y1,x2,y2,r:real;
begin
write(Введите x1,y1);read(x1,y1);
write(Введите x2,y2);read(x2,y2);
r:= sqrt(sqr(x2-x1) + sqr(y2-y1));
write(расстояние между двумя точками = ,r);
end.