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

Question

Информатика

Миля

15 мая, 20:43

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

+5

Ответы (1)

Знаете ответ на вопрос?

Акиндин · 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.