Размер алфавита = 26+10 = 36 символов, ближайшая степень двойки, которая больше или равна 36 - 6 (2^6=64), значит, каждый символ кодируется 6 битами. 180*6=1080 бит.
2б в 16 с.с. переводишь в 2 с.с. : 101011
101011 в 2 с.с. = 43 в 10 с.с.
111 в N с.с. приравниваешь к 43 в 10с.с.
т.к. во всех разрядах числа 111 стоят единицы, можно число разложить как N^2 + N^1 + N^0 = 43
N^2 + N + 1 =43
N^2 + N = 43-1
а дальше метод подбора
N= 6
Var n:integer;
begin
writeln('Введите число');
read(n);
if (n>=1000) and (n<10000) and (n mod 5=0) then writeln('Удача');
end.