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

Найти расстояние между двумя точками с заданными координатами (x1, y1) и (x2, y2).

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

Var
x1,x2,y1,y2,s:real;
begin
write(Введите значение x1=);read(x1);
write(Введите значение y1=);read(y1);
write(Введите значение x2=);read(x2);
write(Введите значение y2=);read(y2);
s:=sqrt(sqr(x2-x1)+sqr(y2-y1));
writeln(Расстояние=,s:5:2);
end.