===== 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.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
===== 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.