Nhập vào số N,sắp xếp các chữ số trong số N theo thứ tự giảm dần

0 bình luận về “Nhập vào số N,sắp xếp các chữ số trong số N theo thứ tự giảm dần”

1. program sapxep;

   uses crt;

   var A:array[1..20] of byte;

         n:longint;

         i,j,tg,d:byte;

   begin

          clrscr;

          write(‘Nhap n: ‘);  readln(n);

          d:=0;

          while n>0 do

                 begin

                        d:=d+1;

                        A[d]:=n mod 10;

                        n:=n div 10;

                 end;

          for i:=1 to d-1 do

                 for j:=i+1 to d do

                 if A[i]<A[j] then

                        begin

                               tg:=A[i];

                               A[i]:=A[j];

                               A[j]:=tg;

                        end;

          for i:=1 to d do write(A[i]);

          readln;

   end.

   Bình luận

2. uses crt;

   var A:array[1..20] of integer;

         n:longint;

         i, j, t, d:byte;

   begin

          clrscr;

          write(‘Nhap n: ‘);  readln(n);

          d:=0;

          while n>0 do

                 begin

                        d:=d+1;

                        A[d]:=n mod 10;

                        n:=n div 10;

                 end;

          for i:=1 to d-1 do

                 for j:=i+1 to d do

                 if A[i]<A[j] then

                        begin

                               t:=A[i];

                               A[i]:=A[j];

                               A[j]:=t;

                        end;

          for i:=1 to d do write(A[i]);

          readln;

   end.

   Bình luận