Дано натуральное число n. Переставить его цифры так, чтобы образовалось максимальное число, записанное теми же цифрами. (программа Паскаль)
Вопрос посетителя
Дано натуральное число n. Переставить его цифры так, чтобы образовалось максимальное число, записанное теми же цифрами.
Ответ эксперта
uses crt;
var n,m,k,i:word;
begin
clrscr;
repeat
writeln(‘Введите натуральное число <99999');
readln(n);
until(n>0)and(n<99999);
for i:=9 downto 0 do
begin
m:=n;
while m>0 do
begin
k:=m mod 10;
if k=i then
begin
write(k);
break;
end
else m:=m div 10;
end;
end;
readln
end.