Переставить цифры числа

@JustinDEbass · Регистрация: 17.10.2009

Author24 — интернет-сервис помощи студентам

Здравствуйте...
не могли бы помочь решить задачу:
Дано натуральное число n (n<9999) переставить его цифры так, чтобы образовалось максимальное число, записанное теми же цифрами.
Фишка в том, что нельзя использовать string =*(
А как без него незнаю можете пожалуса помточь...
Язык Pascal.
Заранее огромное спасибо и низкий поклон...

@Puporev · 17.10.2009, 17:38

А массив и сортировку можно использовать.

@JustinDEbass · 17.10.2009, 17:40 **[ТС]**

и массивы тоже нельзя =*(

@Babib · 17.10.2009, 17:40

Массив нельзя, а вот сортировку вроде можно

@Puporev · 17.10.2009, 17:41

Массив нельзя, а вот на счет сортировки не знаю,

А что сортировать, если не будет массива?

@Babib · 17.10.2009, 17:45

то что введешь в с клавиатуры в фунции FOR

@Puporev · 17.10.2009, 18:19

Pascal

uses crt;
var n,m,k,i:word;
begin
clrscr;
repeat
writeln('Введите натуральное число <9999');
readln(n);
until(n>0)and(n<9999);
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.

@JustinDEbass · 17.10.2009, 18:24 **[ТС]**

Огромное спасибо...

@Puporev · 17.10.2009, 18:26

Babib, Прочитай про алгоритмы сортировок, посмотри что можно сортировать, и не смеши народ.

@Babib · 17.10.2009, 19:34

Да я уже понял, что чушь я сказал. Но мне всего лишь 5 лет.

Добавлено через 13 минут
Puporev, Почему когда вводишь число 9996 выдает не максимальный результат, 9996, а 96. И когда вводишь 9987, выдает 987

@Puporev · 17.10.2009, 19:43

Babib, Молодец, заметил. Нужно break убрать, перестарался.
Вот так верно.

Pascal

uses crt;
var n,m,k,i:word;
begin
clrscr;
repeat
writeln('Введите натуральное число <9999');
readln(n);
until(n>0)and(n<9999);
for i:=9 downto 0 do
 begin
  m:=n;
  while m>0 do
   begin
    k:=m mod 10;
    if k=i then write(k);
    m:=m div 10;
   end;
 end;
readln
end.

@JustinDEbass 0 / 0 / 3 Регистрация: 17.10.2009 Сообщений: 14
		1
	Переставить цифры числа 17.10.2009, 16:57. Показов 1810. Ответов 10 Метки нет (Все метки) Здравствуйте... не могли бы помочь решить задачу: Дано натуральное число n (n<9999) переставить его цифры так, чтобы образовалось максимальное число, записанное теми же цифрами. Фишка в том, что нельзя использовать string =*( А как без него незнаю можете пожалуса помточь... Язык Pascal. Заранее огромное спасибо и низкий поклон... 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	17.10.2009, 17:38	2
	А массив и сортировку можно использовать. 0

@JustinDEbass 0 / 0 / 3 Регистрация: 17.10.2009 Сообщений: 14
	17.10.2009, 17:40 [ТС]	3
	и массивы тоже нельзя =*( 0

@Babib 1 / 1 / 0 Регистрация: 06.10.2009 Сообщений: 21
	17.10.2009, 17:40	4
	Массив нельзя, а вот сортировку вроде можно 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	17.10.2009, 17:41	5
	Массив нельзя, а вот на счет сортировки не знаю, А что сортировать, если не будет массива? 0

@Babib 1 / 1 / 0 Регистрация: 06.10.2009 Сообщений: 21
	17.10.2009, 17:45	6
	то что введешь в с клавиатуры в фунции FOR 0

@JustinDEbass 0 / 0 / 3 Регистрация: 17.10.2009 Сообщений: 14
	17.10.2009, 18:24 [ТС]	8
	Огромное спасибо... 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	17.10.2009, 18:26	9
	Babib, Прочитай про алгоритмы сортировок, посмотри что можно сортировать, и не смеши народ. 0

@Babib 1 / 1 / 0 Регистрация: 06.10.2009 Сообщений: 21
	17.10.2009, 19:34	10
	Да я уже понял, что чушь я сказал. Но мне всего лишь 5 лет. Добавлено через 13 минут Puporev, Почему когда вводишь число 9996 выдает не максимальный результат, 9996, а 96. И когда вводишь 9987, выдает 987 1

	17.10.2009, 19:43