Pascal. перестановка даны пять чисел: 1890 83849 126631 146531 32749972 для каждого найдите минимальное целое число, которое больше данного и состоит из такого же набора цифр. например, для числа 1932 это 2139, а для числа 1212 — это 1221. в ответ запишите пять целых чисел. каждое число должно быть в отдельной строке. порядок записи менять нельзя. если вы не можете найти ответ для какого-то числа, то вместо ответа поставьте знак «-» (минус без кавычек).
259
343
Ответы на вопрос:
Pascalabc.net 3.4.2, сборка 1863 от 10.11.2018 внимание! если программа не работает, обновите версию!
function conv(s: string): string;
begin
var d : = s.tochararray;
var (i, found) : = (d.high, false);
while i > = 1 do
if d[i] > d[i - 1] then
begin
found : = true;
break
end
else i -= 1;
if found then
begin
s : = s[: i];
var c : = d[i - 1];
d : = d[i - 1: ];
d.sort;
var j : = d.indexof(c) + 1;
s += (d[j] + d? [: j] + d? [j + 1: ]).joinintostring
end
else s : = '-';
result : = s
end;
begin
var ms : = arr('1890', '83849', '126631', '146531', '32749972');
foreach var s in ms do
conv(s).println
end.
1908 83894 131266 151346 32772499сссссссссссссссссссссссссссссссссссссссссссссссссссссссссссссссссссссссссс
Объяснение:
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
Viktori111111211131.01.2020 06:13
-
Natusik0402.06.2022 13:48
-
Шист09.11.2022 07:53
-
Александра11079929.08.2022 16:43
-
denian1134312.05.2023 14:49
-
Aleksandra6661117.03.2023 11:56
-
GGWPmen16.08.2020 15:27
-
СтаниславШугаенко02.08.2020 08:33
-
2yva29301.01.2021 23:45
-
Савина1106.02.2021 00:22
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.