Формат номерного знака в РФ: БЦЦЦББ, где Б - буква из 12-ти символьного набора, Ц - цифра от 0 до 9. Бизнесмен Егор хочет купить себе "блатной" номерной знак. Егор считает "блатным" номерной знак, если в нём 3 одинаковые буквы или 3 одинаковые цифры. Сколько всего существует "блатных" номерных знаков, если числа 000 в номерах быть не может?

Формула нахождения (если я не ошибаюсь) (А ИЛИ Б) = А + Б - (А И Б). То есть 12^3*9+12*9^3-12*9=24192

Объяснение:

12^3*9(На каждое место берем любую букву и учитываем только комбинации цифр 111, 222, 333 и т.д.)

12*9^3(Берем только 12 комбинаций букв ААА БББ и т.д. и любую цифру на каждое место)

12*9(Берем Номера, в которых и все буквы, и все цифры одинаковые)

// PascalABC.Net

// Первая программа, если необходимо выбрать нечетные элементы и их отсортировать.

begin

   var a := ArrRandom(10);

   writeln('Исходный массив: ');

   a.PrintLn(', ');

   writeln('Отсортированный массив нечетных элементов: ');

   a.Where(e -> e mod 2 <> 0).OrderBy(e -> e).Print(', ');

end.

// Вторая программа, если необходимо в исходном массиве отсортировать нечетные значения

begin

   var a := ArrRandom(10);

   writeln('Исходный массив: ');

   a.PrintLn(', ');

   writeln('Отсортированный массив нечетных элементов: ');

   var odd := a.Select((e, i) -> (i, e)).Where(e -> e[1] mod 2 <> 0).OrderBy(e -> e[1]);

   var sortedOdd := odd.Zip(odd.Select(e -> e[0]).OrderBy(e -> e), (f, s) -> (s, f[1]));

   foreach var e in sortedOdd do

       a[e[0]] := e[1];

   a.PrintLn(', ');

end.

Uses graphABC;
const
    cx = 200;
    cy = 200;
    radius = 150;

procedure Chandelier(PenColor, BrushColor: Color);
begin
    SetPenColor(PenColor);
    SetBrushColor(BrushColor);
    Line(cx, 0, cx, cy - radius);
    FillPie(cx, cy, radius, 0, 180);
    Ellipse(cx - radius, cy - 30, cx + radius, cy + 30);
end;

procedure Dark();
begin
    ClearWindow(clBlack);
    
    Chandelier(clGreen, clDarkGreen);
    
    SetBrushColor(clBlack);
    SetFontColor(clWhite);
    TextOut(cx - 30, 2 * cy - 50, 'False');
end;

procedure Light();
begin
    ClearWindow(clSilver);
    
    SetBrushColor(clLightGoldenrodYellow);
    FillPie(cx, cy - radius div 2, 3 * cx, 210, 330);
    
    Chandelier(clGreen, clLime);
    
    SetBrushColor(clYellow);
    FillCircle(cx, cy - radius div 2, 35);
    
    SetBrushColor(clLightGoldenrodYellow);
    SetFontColor(clBlack);
    TextOut(cx - 30, 2 * cy - 50, 'True');
end;

procedure DrawLamp(state: Boolean);
begin
    if state then
        Light()
    else Dark();
end;

var
    LampState: Boolean;
    key: Char;

begin
    SetWindowSize(2 * cx, 2 * cy);
    SetFontSize(20);
    LampState := False;
    
    repeat
        DrawLamp(LampState);
        key := ReadChar();
        if key = 'h' then
            LampState := not LampState;
    until key = #27;
end.