Var x1,y1,x2,y2,r:real;
begin
readln(x1,y1);
readln(x2,y2);
r:=sqrt(sqr(x2-x1)+sqr(y2-y1));
writeln(r:5:3);
end.
Пример:
1. 1.
2. 2.
<span>1.414</span>
<span>В качестве разделителей добавлены только: пробел, запятая, точка и тире.</span>
//PascalABC.Net 3.1.0.1200
var
a, b: integer;
begin
a := -3;
b := -a - a;
a := a + 2;
a := -b + a * b;
Println(a, b);
end.
Вывод -12 6