Anabelle
Опубликовано 7 лет назад по предмету Информатика от Anabelle


Оформить процедурой преобразование натурального многоразрядного числа так, чтобы его цифры располагались в убывающем порядке

  1. Ответ
    Ответ дан sinbad7

    var n: integer;

    procedure down(var n: integer);var a: array[1..20] of integer; i, j, s, p: integer;begin i := 0; while n > 0 do begin i := i + 1; a[i] := n mod 10; n := n div 10; end; p := i; for i := 1 to p - 1 do for j := i + 1 to p do if a[i] < a[j] then begin s := a[i]; a[i] := a[j]; a[j] := s; end; j := 1; for i := p downto 1 do begin s := s + a[i] * j; j := j * 10; end; n := s;end;

    begin readln(n); down(n); writeln(n); end.

Не тот ответ, который вам нужен?
Найди нужный
Самые новые вопросы
99335871
Другие предметы - 1 год назад

В какой оболочке земли живёт большинство живых организмов?

99335871
Другие предметы - 1 год назад

Из каких неживых частей состоит экосистема

mandrykin
Другие предметы - 1 год назад

На какие расы делятся население земли

kinda2007
Другие предметы - 1 год назад

Определение статуса военнослужащего (краткий ответ!!)

Санёк1999
Другие предметы - 1 год назад

Проведи следущие наблюдения в классе: один учащийся спокойно сидит за партой, слушая объяснения учителя; второй записывает план объяснения в тетради ; третий ученик вышел к доске отвечать на вопрос учителя. назови движущиеся тела. относительно каких других тел они движутся ?

Информация

Посетители, находящиеся в группе Гости, не могут оставлять комментарии к данной публикации.

Задай вопрос

Лучшие за месяц


Интересные статьи:


Пошаговый план подготовки к ЕГЭ за полгода для школьников
Не сдал ЕГЭ пересдача апелляция альтернативные пути
10 ошибок на ЕГЭ по русскому и способы их избежать
Выбор предметов ЕГЭ для поступления
Секреты подготовки к экзаменам дома от отличников