Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- //function min(var a:integer, var b:integer,)
- /*
- procedure swap(var x:integer; var y:integer);
- begin
- x := x + y ; y := x - y; x := x - y;
- end;
- procedure min (var a: integer; var b: integer;var c: integer;var d: integer;var e: integer);
- begin
- if (a<b) then swap(a,b);
- if c<d then swap(c,d);
- if a>c then
- begin
- if b<d then swap(b,d);
- if c>b then swap(c,d);
- end
- else if a<c then swap(a,c);
- if c>d then swap(c,d);
- if b<d then swap(b,d);
- // (e) a (e) b (e) c d
- if e>a then //
- else if e>b then //
- if e>c then swap(e,c);
- end;
- var
- a,b,c,d,e:int64;
- begin
- read(a,b,c,d,e);
- min(a,b,c,d,e);
- writeln(a, ' ', b, ' ', c);
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement