profile
Опубликовано 6 лет назад по предмету Информатика от kutcasha

1. Дано натуральное число n. Переставить его цифры так, чтобы образовалось минимальное число, записанное теми же цифрами.

  1. Ответ
    Ответ дан Аккаунт удален
    var
      n:string;
      t:char;
      i,j,k:integer;
    begin
    write('Число: ');
    readln(n);
    k:=length(n);
    for i:=1 to k do
      for j:=i to k do
        if ord(n[j])<ord(n[i]) then
             begin
             t:=n[i];
             n[i]:=n[j];
             n[j]:=t;
             end;
    writeln('Минимальное число: ',n);
    end.
    1. Ответ
      Ответ дан Аккаунт удален
      Теперь понятно. Иду туда
Самые новые вопросы