KA11.

Найти расстояние между двумя точками на плоскости

Question

Информатика

Катюра

26 апреля, 16:06

KA11.

Найти расстояние между двумя точками на плоскости

+1

Ответы (1)

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

Варсоноф · Answer 1

Var

X1, Y1, X2, Y2:real;

Begin

Write ('X1 = ') ; Read (X1) ;

Write ('Y1 = ') ; Read (Y1) ;

Write ('X2 = ') ; Read (X2) ;

Write ('Y2 = ') ; Read (Y2) ;

Write ('Расстояние между точками (', X1,'; ', Y1,') и (', X2,'; ', Y2,') = ', sqrt (sqr (X2-X1) + sqr (Y2-Y1)))

End.

KA11.Найти расстояние между двумя точками на плоскости

KA11.

Найти расстояние между двумя точками на плоскости