Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Var a, b, c:integer;
- Begin
- readln(a, b, c);
- 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);
- End.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement