Напишите программу на python даны два четырехзначных числа а и в. выведите в порядке возрастания все четырехзначные числа в интервале от а до в, запись которых содержит ровно три одинаковые цифры входные данные-1900; 2100 выходные данные-1911; 1999; 2000; 2022

a = int(input())
b = int(input())
while a < b:
   for i in range(10):
       if 3 == str(a).count(str(i)):      
       print(a)
a += 1

Тест №1
1900
2100

1911
1999
2000
2022

Тест №2
4999
5222

4999
5000
5055
5111
5155

Зрительные:
а) Буквы
б) Цифры
в) Ноты

Слуховые:
а) Звук человеческой речи
б) Школьный звонок
в) Звук сирены

Осязательные:
а) Рукопожатие
б) Азбука Брайля
в) "Дай пять"

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

Вкусовые:
а) Определение съедобности продукта.
б) Вкус какого-либо продукта питания.
г) Дегустация продукта специальным человеком для проверки на отравленность перед подачей государю.

В человеческом общении применяются зрительные, слуховые и осязательные знаки.

1)
var a: array [1..10] of integer;
    i, m: integer;
begin
     for i := 1 to 10 do
     begin
          a[i] := random(20);
          writeln('[', i, '] => ', a[i]);
          if (a[i] mod 2 = 0) then m := m + a[i];
     end;
     writeln(m);
end.

2)
var a: array [1..10] of integer;
    i, m: integer;
begin
     m := 1;
     for i := 1 to 10 do
     begin
          a[i] := random(20);
          writeln('[', i, '] => ', a[i]);
          if (a[i] mod 2 = 1) then m := m * a[i];
     end;
     writeln(m);
end.

3)
var a: array [1..10] of integer;
    i, m: integer;
begin
     m := 1;
     for i := 1 to 10 do
     begin
          a[i] := random(20);
          writeln('[', i, '] => ', a[i]);
          m := m + a[i];
     end;
     writeln(m / 10);
end.

4)
var a: array [1..10] of integer;
    i, m, c: integer;
begin
     m := 1;
     for i := 1 to 10 do
     begin
          a[i] := random(20);
          writeln('[', i, '] => ', a[i]);
          if (a[i] mod 2 = 0) then
          begin
               m := m + a[i];
               c := c + 1;
          end;
     end;
     if (c > 0) then writeln(m / c);
end.

Вас =)