Расставить цифры в числе в порядке убывания

@VirusAlex · Регистрация: 20.10.2013

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

Нужно написать прогу, в которую вводится число, а она выдаёт максимальное число из цифр заданного числа. Можно использовать циклы фор, вайл, репит, фор. Массивы нельзя. Помогите!+

@Puporev · 20.10.2013, 17:55

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.

@VirusAlex 0 / 0 / 1 Регистрация: 20.10.2013 Сообщений: 11
		1
	Расставить цифры в числе в порядке убывания 20.10.2013, 17:20. Показов 4218. Ответов 1 Метки нет (Все метки) Нужно написать прогу, в которую вводится число, а она выдаёт максимальное число из цифр заданного числа. Можно использовать циклы фор, вайл, репит, фор. Массивы нельзя. Помогите!+ 0

Опции темы

Расставить цифры в числе в порядке убывания

Решение