Какое наименьшее число Z можно получить вставкой цифры X в четырёхзначное число Y.

[Drunk Gnome]

Какое наименьшее число Z можно получить вставкой цифры X в четырёхзначное число Y. Ведущие нули не допустимы.

Формат ввода:

X Y
Пример ввода:

1 2014
Формат вывода:

Z
Пример вывода:

12014

Заранее благодарен!)

[newerow1989]

Я так думаю: 10000

Либо: 11000

[Аватар]

Ищи слева-направо первую цифру большую или равную вставляемой. Нашел - вставляй перед ней, если вставляемая не ноль или найденная не первая. Иначе после

[min@y™]

Чото как-то... криво, штоли...

function Pow10(Exponent: Byte): DWORD;
begin
  Result:= 1;
  while Exponent <> 0 do
    begin
      Result:= Result * 10;
      Dec(Exponent);
    end;
end;

{ TMainForm }

procedure TMainForm.ExecButtonClick(Sender: TObject);
var
  X, Y, Z, P: DWORD;
  idx: Integer;
  s: string;
begin
  ListBox.Clear();
  Z:= 0;

  for idx:= 0 to 4 do
    begin
      P:= Pow10(idx);
      Y:= DWORD(ySpinEdit.Value) * P;
      X:= (DWORD(xSpinEdit.Value) div P) * P * 10
          + Y + (DWORD(xSpinEdit.Value) mod P);
      s:= IntToStr(X);
      ListBox.Items.Add(s);

      if X > Z
        then begin
               Z:= X;
               ListBox.ItemIndex:= idx;
             end;
    end;
end;