Question

Дано натуральное число N. Переставить местами его цифры так, чтобы получилось максимальное число, записанное теми же цифрами. (Программирование в Pascal ABC)

Answer 1

Var s: string; a: char; n,l: integer; i,j: byte;
begin
  write ('Введите число:    ');
  readln (n);
  Str(n,s);
  l:=length(s);
  
  for i:=1 to l-1 do begin
    for j:=i+1 to l do begin
         if s[i]<s[j]
            then begin a:=s[i]; s[i]:=s[j]; s[j]:=a end      
    end
  end;
  
  writeln;
  writeln (S)
end.

---------------------

Введите число:    273707

777320

Answer 2

Вот пример программы на Pascal ABC, которая решает данную задачу:

pascalCopy code
program MaxNumber;

var
  N, temp, maxNum: Integer;
  digits: array [0..9] of Integer;
  i, j, multiplier: Integer;

begin
  // Ввод числа N
  Write('Введите число N: ');
  Readln(N);

  // Инициализация массива цифр
  for i := 0 to 9 do
    digits[i] := 0;

  // Подсчет количества каждой цифры в числе N
  temp := N;
  while temp > 0 do
  begin
    digits[temp mod 10] := digits[temp mod 10] + 1;
    temp := temp div 10;
  end;

  // Формирование максимального числа из цифр
  maxNum := 0;
  multiplier := 1;

  // Начиная с самой большой цифры (9), формируем число
  for i := 9 downto 0 do
  begin
    // Повторяем каждую цифру digits[i] раз
    for j := 1 to digits[i] do
    begin
      maxNum := maxNum + i * multiplier;
      multiplier := multiplier * 10;
    end;
  end;

  // Вывод результата
  Writeln('Максимальное число: ', maxNum);
end.

Программа запрашивает у пользователя ввод числа N, а затем переставляет его цифры таким образом, чтобы получилось максимально возможное число, состоящее из тех же цифр. Результат выводится на экран.

Например, при вводе числа N = 58942 программа выведет максимальное число: 98542.