Дано целое N. сформировать из цифр числа наибольшее число (паскаль АВС)

[Соболь12]

дано целое N. сформировать из цифр числа наибольшее число .

[Zer0]

это ведь не так сложно - достаточно отсортировать цифры числа по невозрастанию

[Соболь12]

Просто я в этом практически ничего не понимаю

[Mad_Cat]

Было недавно Код от Serge_Bliznykov

[Соболь12]

а где именно его найти то ??

[Mad_Cat]

а где именно его найти то ??

Когда научитесь нормально темы называть тогда и искать будет проще

[Соболь12]

я вообще ничего не поняла.. ну ладно

[Mad_Cat]

разбирайтесь

[veniside]

чуть проще можно

http://ideone.com/nRnjl

UPD: с отрицательными числами там косяк, надо брать модуль

[Serge_Bliznykov]

Mad_Cat, спасибо за помощь.

p.s. соболь, у Вас задача проще, поэтому берите из программы такой код:

  KolDigits := 0;

  {разобьём число N на цифры}
  repeat
    OneDigit := N mod 10;
    N := N div 10;
    inc(KolDigits);
    Digits[ KolDigits ] := OneDigit;
  until N = 0;

  {отсортируем массив Digits по убыванию}

  {сортировка массива методом простых обменов ("пузырька") }
  for i:=1 to KolDigits-1 do
    for j:=i+1 to KolDigits do
      if Digits[i] < Digits[j]then
        begin
          q := Digits[i];
          Digits[i]:=Digits[j];
          Digits[j]:=q
        end;

  {выведем максимальное число}
  WriteLn;
  Write('Максимальное число из найденных цифр: ');
  for i:=1 to KolDigits do Write(Digits[ i ]);
  WriteLn;

  Readln
end.