Advertisement
Alex_Fomin

Untitled

Dec 22nd, 2015
632
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.38 KB | None | 0 0
  1. var
  2.   a, b, c: integer;
  3.  
  4. begin
  5.   ReadLn(a, b, c);
  6.   WriteLn((a + ((b + c - Abs(b - c)) / 2) - Abs(a - ((b + c - Abs(b - c)) / 2))) / 2, #9, a + b + c - ((Abs(2 * c - Abs(b - a) - b - a) + 2 * c + Abs(b - a) + b + a) / 4) - ((a + ((b + c - Abs(b - c)) / 2) - Abs(a - ((b + c - Abs(b - c)) / 2))) / 2), #9, (Abs(2 * c - Abs(b - a) - b - a) + 2 * c + Abs(b - a) + b + a) / 4);
  7. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement