Счастливый билет

@Anonimus132 · Регистрация: 10.11.2017

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

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

Формат входных данных

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

формат результата

В выходной файл выведите минимальный номер счастливого билета, который больше номера Сашиного билета.

примеры

Входные данные в файле input.txt	Результат работы
8	11
99	110

@Cyborg Drone · 18.11.2017, 03:03

Pascal

var ticket: string;
    p, test: integer;
    carry: boolean;
begin
  readln(ticket);
  repeat
    for p := length(ticket) downto 1 do
      begin
        inc(ticket[p]);
        carry := ticket[p] > '9';
        if carry
          then ticket[p] := '0'
          else break
      end;
    if carry then ticket := '1' + ticket;
    if odd(length(ticket))
      then test := ord('0')
      else test := 0;
    for p := 1 to length(ticket) do
      if odd(p)
        then test := test - ord(ticket[p])
        else test := test + ord(ticket[p])
  until test = 0;
  writeln(ticket)
end.

Программа написана для "олимпийского" ("обучающего") сайта.

	18.11.2017, 03:03

Счастливый билет

Решение