Advertisement
Guest User

Untitled

a guest
Dec 15th, 2019
103
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.14 KB | None | 0 0
  1. var
  2.   x1, y1, x2, y2, a, b, p, s: real;
  3.  
  4. begin
  5.   read(x1, y1);
  6.   read(x2, y2);
  7.   s := sqrt(sqr(x2 - x1)+ sqr(y2 - y1));
  8.   write (s);
  9.   end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement