Sắp xếp theo thứ tự từ nhỏ đến lớn 3 số a, b, c

0 bình luận về “Sắp xếp theo thứ tự từ nhỏ đến lớn 3 số a, b, c”

1. Uses crt;
   Var a,b,c,t:longint;
   Begin
   Clrscr;
      write(‘Nhap a,b,c: ‘);readln(a,b,c);
      if a>b then begin t:=a; a:=b; b:=t; end;
      if a>c then begin t:=a; a:=c; c:=t; end;
      if b>c then begin t:=b; b:=c; c:=t; end;
      writeln(a,’ ‘,b,’ ‘,c);
   Readln;
   End.

   Bình luận