Напишите наименьшее число x, для которого истинно высказывание: не (x < 45) и не (в числе x нет одинаковых цифр)

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

Слои объектов. Каждый графический примитив рисуется в своем слое, поэтому рисунки состоят из множества слоев. Графические примитивы можно накладывать друг на друга, при этом одни объекты могут заслонять другие. Например, если сначала был нарисован прямоугольник, а затем поверх него - окружность, то слой окружности будет располагаться поверх слоя прямоугольника и окружность заслонит прямоугольник.

Существует возможность изменения видимости объектов путем изменения порядка размещения их слоев на рисунке. Для этого используются операции изменения порядка, которые позволяют перемещать выделенный объект на передний план (в самый верхний слой рисунка) или на задний план (самый нижний слой рисунка), а также на один слой вперед или назад

// Pascal ABC.NET
var

 ans1, ans2, ans3: Integer;

procedure rec1(k: Integer);

begin

 if k < 1 then

   exit;

 if k = 1 then begin

   Inc(ans1);

   exit;

 end;

 if k mod 2 = 0 then

   rec1(k div 2);

 rec1(k-1);

end;

procedure rec2(k: Integer; visited: Boolean);

begin

 if k < 1 then

   exit;

 if (k = 1) and visited then begin

   Inc(ans2);

   exit;

 end;

 if k mod 2 = 0 then

   rec2(k div 2, visited or (k = 15));

 rec2(k-1, visited or (k = 15));

end;

procedure rec3(k: Integer);

begin

 if (k < 1) or (k = 12) then

   exit;

 if k = 1 then begin

   Inc(ans3);

   exit;

 end;

 if k mod 2 = 0 then

   rec3(k div 2);

 rec3(k-1);

end;

begin

 ans1 := 0;

 ans2 := 0;

 ans3 := 0;

 rec1(20);

 rec2(20, false);

 rec3(20);

 WriteLn('ответ на подзадачу 1: ', ans1);

 WriteLn('ответ на подзадачу 2: ', ans2);

 WriteLn('ответ на подзадачу 3: ', ans3);

end.