Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  4 6 2 3
Language: PASCAL
Code:
Program <q>;
USES WinCrt;
var
x1, y1, x2, y2, r : real ;
begin
Write ("Введите координаты х1 и у1");
Read(x1, y1);
Write ('вводим координаты x2 и y2');
Read(x2, y2);
r:=sqrt(sqr(x2-x1)+sqr(y2-y1));
WriteLn (r);
end.
Comments: