Найти

расстояние между двумя точками (с

клавиатуры вводятся координаты точек). Паскаль

Question

Информатика

Манюра

3 января, 06:40

Найти

расстояние между двумя точками (с

клавиатуры вводятся координаты точек). Паскаль

+2

Ответы (1)

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

Витася · Answer 1

Var x1, y1, x2, y2, d:real;

begin

Writeln ('Координаты х и у первой точки: ') ;

readln (x1, y1) ;

Writeln ('Координаты х и у второй точки: ') ;

readln (x2, y2) ;

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

Writeln ('Расстояние между ними: ', d) ;

end.

Найтирасстояние между двумя точками (склавиатуры вводятся координаты точек). Паскаль

Найти

расстояние между двумя точками (с

клавиатуры вводятся координаты точек). Паскаль