Вывести номер следующего счастливого билета из текущей ленты

@KRRINOK · Регистрация: 02.11.2018

Студворк — интернет-сервис помощи студентам

На автобусных билетах указываются их номера. Номера всех билетов всегда
записываются при помощи одного и того же количества цифр, при этом число используемых
цифр чётно. При необходимости числа дополняются ведущими нулями. К примеру, если для
записи используют 4 цифры, то 514 будет записано как 0514. Билеты отпечатаны на лентах,
билеты на каждой ленте нумеруются подряд числами от 00...01 до 99...99.
Счастливым считается тот билет, у которого сумма цифр первой половины равна
сумме цифр второй половины, например, билеты 1001 и 123051 счастливые, а 7778 и 39 – нет.
Сегодня Дима зашел в автобус, и кондуктор выдал ему билет с номером N. Поскольку
Диме ехать достаточно долго, а заняться чем-нибудь надо, он стал думать, какой номер будет
иметь следующий счастливый билет, выданный из той же ленты, что и Димин билет. Если
в текущей ленте не осталось счастливых билетов, Диму интересует номер минимального
счастливого билета из новой ленты.
В первой и единственной строке входного файла содержится номер Диминого
билета N, записанный с ведущими нулями. Количество цифр в записи числа N
не превосходит 100 000 и чётно.
Программа должна вывести номер следующего счастливого билета из текущей ленты
в таком же формате. Если такого билета не существует, надо вывести номер минимального
счастливого билета из новой ленты. В выводе не должно быть пробелов, пустых строк
в начале вывода.
Пример входных и выходных данных
Ввод 0514
Вывод 0523

@Sun Serega · 03.11.2018, 16:22

Обязательно оптимизировать по макс, или хоть как нибудь?

@JuriiMW · 03.11.2018, 19:13

Pascal
1
2
3
4
5
6
7
8
9
10
begin
  var S := ReadLnString;
  var D := S.Length div 2+1;
  repeat
    var N := S.Length;
    while (N>0) and (S[N] = '9') do (S[N],N) := ('0',N-1);
    if N>0 then S[N] := Succ(S[N]) else (S[D],S[S.Length]) := ('1','1');
  until S[:D].Select(c->StrToInt(c)).Sum = S[D:].Select(c->StrToInt(c)).Sum;
  S.Println;
end.

Новые блоги и статьи Все статьи Все блоги /
Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20%	Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .	Горе от ума kumehtar 07.04.2026 Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .	Использование значений реквизитов справочника в документе, с определенными условиями и правами Maks 07.04.2026 1. Контроль срока действия договора Алгоритм из решения ниже реализован на примере нетипового документа "ЗаявкаНаРаботу", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если. . .
Доступность команды формы по условию Maks 07.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: сделать доступной кнопку (команда формы "ЗавершитьСписание") при. . .	Уведомление о неверно выбранном значении справочника Maks 06.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .	Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .

@KRRINOK 0 / 0 / 0 Регистрация: 02.11.2018 Сообщений: 2

	Вывести номер следующего счастливого билета из текущей ленты 03.11.2018, 13:50. Показов 2285. Ответов 2 Метки нет (Все метки) На автобусных билетах указываются их номера. Номера всех билетов всегда записываются при помощи одного и того же количества цифр, при этом число используемых цифр чётно. При необходимости числа дополняются ведущими нулями. К примеру, если для записи используют 4 цифры, то 514 будет записано как 0514. Билеты отпечатаны на лентах, билеты на каждой ленте нумеруются подряд числами от 00...01 до 99...99. Счастливым считается тот билет, у которого сумма цифр первой половины равна сумме цифр второй половины, например, билеты 1001 и 123051 счастливые, а 7778 и 39 – нет. Сегодня Дима зашел в автобус, и кондуктор выдал ему билет с номером N. Поскольку Диме ехать достаточно долго, а заняться чем-нибудь надо, он стал думать, какой номер будет иметь следующий счастливый билет, выданный из той же ленты, что и Димин билет. Если в текущей ленте не осталось счастливых билетов, Диму интересует номер минимального счастливого билета из новой ленты. В первой и единственной строке входного файла содержится номер Диминого билета N, записанный с ведущими нулями. Количество цифр в записи числа N не превосходит 100 000 и чётно. Программа должна вывести номер следующего счастливого билета из текущей ленты в таком же формате. Если такого билета не существует, надо вывести номер минимального счастливого билета из новой ленты. В выводе не должно быть пробелов, пустых строк в начале вывода. Пример входных и выходных данных Ввод 0514 Вывод 0523 0

@Sun Serega 2355 / 1458 / 526 Регистрация: 07.04.2017 Сообщений: 4,798
	03.11.2018, 16:22
	Обязательно оптимизировать по макс, или хоть как нибудь? 0