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

[Dvoishnik]

данный алгоритм можно сократить, все числа до 123 двояки.

[Serge_Bliznykov]

данный алгоритм можно сократить, все числа до 123 двояки.

нет, все числа до 101.

например, число 102 уже использует три цифры.

[Dvoishnik]

Сообщение от Serge_Bliznykov

нет, все числа до 101.

например, число 102 уже использует три цифры.

каюсь, был не прав.

[Naive]

JavaScript няшка:

function dubl( num ){
    return (num+'').
        replace(/(\d)(?=.*?\1)/g,'').length <= 2
}

[BDA]

Задачка заинтересовала. Вот что получилось:

function min_n(Num: Integer; k: Integer): Integer;
var
  j, tmp: Integer;
begin
  j := 10;
  while Num > 0 do
  begin
    tmp := Num mod 10;
    if (tmp < j) and (tmp >= k) then
      j := tmp;
    Num := Num div 10;
  end;
  result := j;
end;

function next_binum(Num: Integer): Integer;
var
  n, k, j: Integer;
begin
  k := 1;
  while not is_binum(Num) do
  begin
    n := Num mod (10 * k) div k;
    j := min_n(Num div (10 * k), n);
    if n <> j then
    begin
      Num := (Num div (10 * k)) * 10 * k + j * k;
      k := 1;
    end
    else
      k := 10 * k;
  end;
  result := Num;
end;

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

[Аватар]

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

function prmior_binu(Num: Integer): Integer;
var s: String;
    n1,n2: Integer;
begin
  if Num<=101 then begin
    Result:=Num-1;
    Exit;
  end;
  s:=IntToStr(Num);
  if s[1]<>s[2] then begin
    n1:=StrToInt(Copy(s,1,2)+StringOfChar(s[1],Length(s)-2));
    n2:=StrToInt(Copy(s,1,2)+StringOfChar(s[2],Length(s)-2));
    if (n1<Num) and (n2<Num) then Result:=Max(n1,n2)
    else if n1<Num then Result:=n1
    else if n2<Num then Result:=n2
    else begin
      if Copy(s,1,2)='10' then Result:=StrToInt(StringOfChar('9',Length(s)-1))
      else if s[2]='0' then Result:=StrToInt(Chr(Ord(s[1])-1)+StringOfChar('9',Length(s)-1))
      else begin
         s[2]:=Chr(Ord(s[2])-1);
         if s[1]=s[2] then Result:=StrToInt(Copy(s,1,2)+StringOfChar('9',Length(s)-2))
         else Result:=Max(StrToInt(Copy(s,1,2)+StringOfChar(s[1],Length(s)-2)),
                          StrToInt(Copy(s,1,2)+StringOfChar(s[2],Length(s)-2)));
      end;
    end;
  end
  else begin
    for n1:=StrToInt(s[3]) downto 0 do begin
      n2:=StrToInt(Copy(s,1,2)+StringOfChar(IntToStr(n1)[1],Length(s)-2));
      if n2<Num then begin Result:=n2; Exit; end;
    end;
    s[2]:=Chr(Ord(s[2])-1);
    Result:=Max(StrToInt(Copy(s,1,2)+StringOfChar(s[1],Length(s)-2)),
                StrToInt(Copy(s,1,2)+StringOfChar(s[2],Length(s)-2)));
  end;
end;