Advertisement
Guest User

Untitled

a guest
Oct 22nd, 2018
90
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.21 KB | None | 0 0
  1. Var a, b, c:integer;
  2. Begin
  3. readln(a, b, c);
  4. writeln(min(min(((min(min(a, b), c)**2+max(a, b)**2)**(1/2)),((min(min(a, b), c)**2+max(a, c)**2)**(1/2))),((min(min(a, b), c)**2+max(b, c)**2)**(1/2))):1:9);
  5. End.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement