Question

Определи расстояние на плоскости между двумя точками с заданными координатами M1(x1,y1) и M2(x2,y2).
Ответ введи целым числом. Если координаты точек: x1=4; y1=3
x2=8; y2=13.
Ответ округли до целых.

Answer 1

===== PascalABC.NET =====

begin

 var (x1, y1) := ReadInteger2('Введи x1 и y1:');

 var (x2, y2) := ReadInteger2('Введи x2 и y2:');

 Print(Round(Sqrt(Sqr(x2 - x1) + Sqr(y2 - y1))))

end.