Найти произведение четных чисел оканчивающихся на 4 в паскаль

program dsa;

var a, proz : integer;

begin

writeln('a = ');

read(a);

if (a mod 10 = 4) then

proz := proz * a;

write(proz);

end.

Была задачка такая в школе у нас на одной важной работе. Про пещеры и клад. К ней нужно было применить алфавитный подход...
<<Известно, что ровно в двух пещерах из пяти есть клады. Сколько битов нужно, чтобы закодировать информацию о расположении кладов?>>
Если задачу решать традиционно, как на первый взгляд кажется - изящно, то ответ получится примерно таков:
1 2 3 4 5
0 1 0 0 1
Итого: 5 битов.

Мы же говорим о рациональном подходе. Всего 5 пещер. В двух клады. Сколько вариантов расположения кладов существует?
1 2 3 4 5
1-2,1-3,1-4,1-5,2-3,2-4,2-5,3-4,3-5,4-5
Итого: 10 вариантов - вот тебе и алфавит. Можешь пронумеровать варианты(0, 1,2,3...) и информацию хранить будешь в скольки битах?
10=2^i
2^3=8(10 сюда не входит)
2^4=16(10 входит. Пусть будет немного лишней информации, зато она не потеряется.)
Получаем 4 бита.

Последний день перед Рождеством Зимняя, ясная ночь наступила. Глянули звезды. Месяц величаво поднялся на небо посветить добрым людям и всему миру, чтобы всем было весело колядовать... (Н. В. Гоголь. Вечера на хуторе близ Диканьки)

239 символів включаючи пробіли між словами, знаки пунктуації і букви. Якщо в 8 бітному кодуванню то кожен символ кодується 8 бітами(або 1 байтом)
239*8=1912біт=239байт (щоб перейти від біт до байт треба просто поділити на 8, тому що 1 байт має 8 біт)

Якщо в 16 бітному(або 2 байтовому) то
239*16=3824біт=478байт