Question

Найдите расстояние между двумя A(x1,y1), B(x2,y2)

Answer 1

var x1,x2,y1,y2,s:real; 
begin 
writeln('Введите координаты точки A');  write('X='); 
read(x1); 
write('Y='); 
read(y1); 
writeln('Введите координаты точки B'); 
write('X='); 
read(x2); 
write('Y='); 
read(y2);   
s:=sqrt(sqr(x2-x1)+sqr(y2-y1));   
writeln(s);   
end.