26 февраля, 10:05

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

+2
Ответы (1)
  1. 26 февраля, 10:47
    0
    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.
Знаете ответ на вопрос?
Не уверены в ответе?
Правильный ответ на вопрос 👍 «Оформить процедурой преобразование натурального многоразрядного числа так, чтобы его цифры располагались в убывающем порядке ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы