В данном натуральном числе переставить цифры таким образом, чтобы образовалось наибольшее число, записанное этими же цифрами.

@Снежка · Регистрация: 11.04.2010

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

@Puporev · 12.04.2010, 15:44

Pascal

uses crt;
var n,m,k,i:longint;
begin
clrscr;
repeat
writeln('Введите натуральное число до 2 147 483 647');
readln(n);
until(n>0)and(n<2147483647);
for i:=9 downto 0 do{начиная с 9 ищем в числе цифры по убыванию}
 begin
  m:=n;{запоминаем число}
  while m>0 do
   begin
    k:=m mod 10;{ищем цифру 9.8.7...0}
    if k=i then write(k);{нашли - выводим}
    m:=m div 10;{сокращаем число на 10 и повторяем пока не проверим все цифры}
   end;
 end;
readln
end.

@Снежка 0 / 0 / 0 Регистрация: 11.04.2010 Сообщений: 7
		1
	В данном натуральном числе переставить цифры таким образом, чтобы образовалось наибольшее число, записанное этими же цифрами. 12.04.2010, 14:06. Показов 7570. Ответов 1 Метки нет (Все метки) В данном натуральном числе переставить цифры таким образом, чтобы образовалось наибольшее число, записанное этими же цифрами. 0

	12.04.2010, 15:44

В данном натуральном числе переставить цифры таким образом, чтобы образовалось наибольшее число, записанное этими же цифрами.

Решение