Advertisement
Guest User

Untitled

a guest
Sep 20th, 2018
81
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.69 KB | None | 0 0
  1. //function min(var a:integer, var b:integer,)
  2. /*
  3. procedure swap(var x:integer; var y:integer);
  4. begin
  5. x := x + y ; y := x - y; x := x - y;
  6. end;
  7.  
  8. procedure min (var a: integer; var b: integer;var c: integer;var d: integer;var e: integer);
  9. begin
  10. if (a<b) then swap(a,b);
  11.  
  12. if c<d then swap(c,d);
  13.  
  14. if a>c then
  15. begin
  16. if b<d then swap(b,d);
  17. if c>b then swap(c,d);
  18. end
  19. else if a<c then swap(a,c);
  20. if c>d then swap(c,d);
  21. if b<d then swap(b,d);
  22.  
  23. // (e) a (e) b (e) c d
  24.  
  25. if e>a then //
  26. else if e>b then //
  27. if e>c then swap(e,c);
  28.  
  29. end;
  30.  
  31. var
  32. a,b,c,d,e:int64;
  33. begin
  34. read(a,b,c,d,e);
  35. min(a,b,c,d,e);
  36. writeln(a, ' ', b, ' ', c);
  37. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement