Найти все двузначные числа, которые делятся на m или содержат цифру m. язык паскаль

Var a,b,c:integer;
begin
writeln('введите число');
readln(a);
for b:=10 to 99 do
begin
if (b mod a = 0) or (b div 10 = a) or (b mod 10 = a) then writeln(b);
end;
end.

255 в двоичной системе сч = 11111111, т.е при умножении на него поразрядно сохраняется то число, которое умножаем на 255.
Это значит, что первые две тройки чисел останутся прежними  130.132.
Последнее число в маске это 0. В двоичной с.с 00000000. При умножении на 0 будет ноль. Это значит, что последняя цифра 0.
Т.е. получим  130.132.      .0
Остается выяснить середину.
131 - 10000011
192 - 11000000
Тогда поразрядное умножение нам дает
10000000, При переводе в десятичную с.с 2^7=128
Получили новый адрес
130.132.128.0
Сопоставим с буквами
EBAF

адрес узла : 91.62.203.130

адрес сети:  91.62.192.0

Рассмотрим третьи байты узла и сети, т.к в первых двух байтах их адреса совпадают и следовательно адрес маски  будет равен 255₁₀ или 11111111₂

Переведем значения в двоичную систему

203₁₀ = 11001011₂

192₁₀   =11000000₂

Адрес сети получается в результате применения поразрядной конъюнкции  IP-адреса узла и маски.

Вычисляем адрес маски: 11000000

Нам надо вычислить минимальное количество единиц, поэтому предположим что в значении маски на единицу меньше:

10000000, тогда адрес сети примет вид: 10000000₂=128₁₀, что не совпадает с условием задачи.

Поэтому минимальное значение единиц в третьем байте маски=2, плюс 16 единиц в первых двух байтах.

Итого наименьшее возможное количество единиц в маске=18

Объяснение: