В заданном строкой S натуральном N-разрядном числе упорядочить цифры так, чтобы получить наибольшее число из тех же цифр

[kea75]

написать программу на языке паскаль,которая считывает с клавиатуры строку S, состоящую из цифр. В заданном строкой S натуральном N-разрядном числе упорядочить цифры так, чтобы получить наибольшее число, записанное теми же цифрами. Строка S не пустая и содержит не более 200 символов. Строка S состоит только из цифр.

[BDA]

Достаточно упорядочить элементы строки по убыванию, как обычный массив.

[Poma][a]

по убыванию

по невозрастанию если быть точным

И да.. упорядочивать нужно правильно.. за один проход.. завести другой массив a : array ['0'..'9'] of Integer; и Inc(a[s[i]]).. на всякий случай, можно еще и проверять, является ли символ цифрой..

[Serge_Bliznykov]

Poma][a, к чему все эти сложности?!
Просто отсортировать массив S и всё.
Хоть тем же пузырьком/обменом!

[Poma][a]

Poma][a, к чему все эти сложности?!

Серж, а Вы про какие сложности?
Кода получится меньше чем при пузырьке\обмене.. Да и работать будет быстрее.. и понять проще

[Serge_Bliznykov]

Ну да, согласен, решения по объёму кода сопоставимые, но Ваш вариант намного эффективнее по быстродействию...

способ со сортировкой

  Readln(S);

  {сортировка массива}
  for i:=1 to Length(S)-1 do
    for j:=i+1 to Length(S) do
      if S[i]<S[j] then
        begin
          ch := S[i];  S[i] := S[j];  S[j]:= ch
        end;

  WriteLn(S);

способ со счётчиками:

  Readln(S);

  {обнулить массив счётчиков}
  for ch:='0' to '9' do a[ch] := 0;

  {заполнение массива}
  for i:=1 to Length(S) do
     if S[i] in ['0'..'9'] then Inc( a[S[i]]);

  {вывод результата}
  S := '';
  for ch:='9' downto '0' do
      for i:=1 to a[ch] do S := S + ch;

  WriteLn(S);

p.s. писал тут, на форуме, мог где-нибудь малость напортачить...