Question

Scrieţi un program care reordonează cifrele unui număr natural n astfel încât să se obţină un număr natural cât mai mic posibil in Pascal

Answer 1

Răspuns:

program reordonareCifre;

var num, i, j, cif, m:integer;

   vf:array[0..9]of integer;

begin

 read(num);

 if num=0 then vf[0]:=1

 else

   begin

     while num<>0 do

       begin

         cif:=num mod 10;

         vf[cif]:=vf[cif]+1;

         num:=num div 10;

       end;

    end;

  m:=0;

  if vf[0]>0 then

    begin

      i:=1;

      while vf[i]=0 do i:=i+1;

      m:=i;

      vf[i]:=vf[i]-1;

    end;

  for i:=0 to 9 do

    begin

      if vf[i]>0 then

        begin

          for j:=1 to vf[i] do

            begin

              m:=m*10+i;

            end;

        end;

    end;

  writeln(m);

end.

Explicație:

vector de frecvență vf