Question

Написать программа на языке Паскаль для решения задачи
По заданным координатам точек А и Б вычислить длину отрезка АБ

Answer 1

var

 D:real;

 x1,y1:real;

 x2,y2:real;

begin

 writeln('Укажите координату точки A(x1,y1)');

 read(x1,y1);

 

 writeln('Укажите координату точки B(x2,y2)');

 read(x2,y2);

 

 D:=sqrt(sqr(x1-x2)+sqr(y1-y2));

 

 writeln;

 

 write('Длина отрезка - ',D:1:2);

 

end.

Объяснение: