Перестановка цифр в числе

[lisenog]

Собственно задача:
Дано натуральное число N. Построить из цифр N максимально возможное число.

Нужно решение, с объяснением если можно)
Заранее спасибо!

[Mad_Cat]

упорядочиваем цифры числа N по убыванию и все!

[lisenog]

это я знаю, но как на pascal это записать?

[_-Re@l-_]

Ну...Массивом делай!

[lisenog]

Во всех задачах используется целочисленная переменная N, значение которой не превосходит по модулю 2 млрд (если не указано иное). Нельзя использовать строковые переменные, массивы или другие структуры.

вот)

[Stilet]

но как на pascal это записать?

А оч. просто.
Введи число в переменную типа integer (например в i)
Далее процедурой Str преобразуй ее в строку.
А после пройди сортировкой пузырьковой по строке, благо она представляет собой массив символов, и упорядочи по возрастанию.
Ферштеен? Примеры сортировки уже обсуждались во всех подробностях.
А вот хотя бы тут:http://www.programmersforum.ru/showthread.php?t=1688

Нельзя использовать строковые переменные

Тьфу блин...
Ну тогда в цикле дели на 10-ки и получай числа.

[_-Re@l-_]

А...Ну тогды циклом.
1. Определяешь длину числа
2. Отщепляешь последнюю циферку и втыкаешь её в начало
3. Если получается число больше чем начальное, то max:=N;
4. Отщепляешь последнюю циферку и втыкаешь опять в начало.
5. Если N>Max то Max:=N
6. Возвращаещь число к первозданному виду.
7. Топаешь в пункт 2, только вместо последней циферки берёшь следующую, т.е. X-1(где X - количество цифр в числе)
Как-то так. Хотя, скорее всего, алгоритм неправильный....

[Kingdom_Reborn]

Пришёл в голову вариант решения без использования символьных и строковых переменных...

var
  x, y, z: Longint;
begin
  ReadLn(x);
  y := x mod 10;
  x := x div 10;
  while x <> 0 do
  begin
    if x mod 10 <= y mod 10 then
      y := y * 10 + x mod 10
    else
    begin
      z := 0;
      while (x mod 10 > y mod 10) and (y > 0) do
      begin
        z := z * 10 + y mod 10;
        y := y div 10;
      end;
      y := y * 10 + x mod 10;
      while z <> 0 do
      begin
        y := y * 10 + z mod 10;
        z := z div 10;
      end;
    end;
    x := x div 10;
  end;
  WriteLn(y);
  ReadLn;
end.

Правда x mod 10 и y mod 10 можно один раз для одной итерации посчитать, но решил оставить так, для наглядности.

P. S. Сортировку вставкой напоминает...