Задать вопрос Регистрация
Помочь другим

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

Ответы 1

  • 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.

    • Автор:

      carpenter
    • 7 лет назад
    • 0

  • Добавить свой ответ

Еще вопросы

Топ пользователей

Войти через Google

 или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years