Натуральное число называется двояким

[Sandakan01]

Натуральное число называется двояким, если в его десятичной записи встречается не более двух различных цифр. Например, числа 3, 23, 33, 100, 12121 - двоякие, а числа 123 и 9980 - нет.

Для заданного натурального числа N требуется найти ближайшее к нему двоякое число

Помогите пожалуйста

[igh0st]

procedure My(Num: Integer);
var
  Str: String;
  i, cnt: integer;
begin

  cnt := 0;
  Str := IntToStr(Num);
  for i := 0 to 9 do
    begin
      if Pos(IntToStr(i), Str) > 0 then
        Inc(cnt);
    
      if cnt > 2 then
        Break;
    end;

   if cnt > 2 then
      ShowMessage('Число ' + Str + ' не двоякое')
   else
      ShowMessage('Число ' + Str + ' двоякое');
    

end;

[Serge_Bliznykov]

igh0st, отлично.

автору темы осталось превратить этот код в функцию (сделать возврат true или false вместо ShowMessage) и добавить вызов данной функции в цикле, пока число не станет двояким (только в цикле нужно делать так

Num1:=num;
Num2:=num;
while not My(Num1) and Not My(Num2) do begin
  Inc(Num1);
  Dec(Num2);
end;
if My(Num1) then // ближайшее Num1
else // ближайшее Num2

[Poma][a]

Можно ж быстрее причём намного
Смотреть на первые два числа а остальные забивать ими смотря больше или меньше само число

[Serge_Bliznykov]

согласен! я тоже уверен, что алгоритм с перебором "в лоб" далеко не самый эффективный.
но зато он простой, понятный и надёжный!

Все прочие требуют дополнительных танцев и проверок.
вот, допустим, есть число 20999 ближайшее к нему 21111
как поможет "Смотреть на первые два числа" ?

[Poma][a]

Видим 20 - пытаемся докопаться сколько ж надо операций. Для этого забиваем все в виде 20222. Дальше вычитаем (наверное).
Потом увеличиваем второе число. Снова считаем
Потом уменьшаем его. И так для всех состояний. Получится 3^2. Фигня ж.
Но еще будет интересно что будет при 22999
Тут стоит рассмотреть отделельно. Мол дойти до первой не нашей цифры а дальше изменять только ее. Конец

[Аватар]

Совсем интересно для 399999 -> 400000. Скорее всего цикл с получением двух чисел путем прибавления и вычитания единицы из исходного и проверкой результата на эту, как её, двоякость

[Serge_Bliznykov]

Сообщение от Аватар

Скорее всего цикл с получением двух чисел путем прибавления и вычитания единицы из исходного и проверкой результата на эту, как её, двоякость

дык, пост №3 как раз это и реализует.

только нужно чуть изменить порядок исчисления. мой пример остановится на самом числе 399999 (оно уже "двоякое"),
а по условиям задачи, если я правильно их понял, нужно найти ближайшее "двоякое" вне зависимости от того, является исходное число "двояким" или нет.

[Аватар]

Ага, проглядел. Сомневаюсь, что достаточно просто можно реализовать более оптимальным способом. Или вообще можно.

[Serge_Bliznykov]

Сообщение от Аватар

Ага, проглядел. Сомневаюсь, что достаточно просто можно реализовать более оптимальным способом. Или вообще можно.

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