В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия

Написать программу для определения наименьшего из больших чисел, составленных из тех же цифр.

Показать ответ
Ответ:
aruzakova05
aruzakova05
16.04.2019 22:50
var
  s : string;
  c : char;
  i, j, l : integer;
begin
  assign(input,'input.txt'); reset(input);
  assign(output,'output.txt'); rewrite(output);
  readln(s);
  l:=length(s); i:=l-1;
  while (i>0) and (s[i]>=s[i+1]) do i:=i-1;
  if i=0 then write(0) else
  begin
    j:=l;
    while s[i]>=s[j] do j:=j-1;
    c:=s[i]; s[i]:=s[j]; s[j]:=c;
    for j:=1 to (l-i) div 2 do
    begin
      c:=s[i+j]; s[i+j]:=s[l+1-j]; s[l+1-j]:=c
    end;
    write(s)
  end
end.
0,0(0 оценок)
Популярные вопросы: Другие предметы
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота