В каждом алфавите находим i (N=2^i) и умножаем на К
3*200=600
4*110=440
6*120=720
7*100=700
8*80=640
...............................................................................................
Компас''ьютер прости знаю только одно слово
480 бит = 60 байт
нужно решить уравнение
x/2=x-60
x=2x-120
x = 120 символов
var
i, k: integer;
begin
i:= 100;
k:= 0;
while i < 1000 do
begin
if (i * 2 mod 10 = 8) and (i * 3 mod 10 = 4) then write(i, ' ')
else k:= k + 1;
i:= i + 1;
end;
if k = 900 then writeln('Таких чисел не существует!');end.