<u> | А | В | С </u>
<u>1 | Количество мест | Продано | Отмена </u>
<u>2 | | | </u>
В ячейку А2 будет вводится количество мест в кинозале.
В ячейку В2 будет вводится число проданных билетов.
В ячейку С2 нужно ввести формулу:
=Если(В2<(A2/2);"отменить")
В вашу исходную программу, после Task('cif2'); надо добавить следующие строки, задающие алгоритм действий для робота:
while FreeFromRight do
begin
Right;
if WallFromUp then Paint;
if WallFromDown then Paint;
end;
Или, можно ещё немного сократить, объединив два условия в одном if (если вы уже проходили логические операторы OR):
while FreeFromRight do
begin
Right;
if WallFromUp or WallFromDown then Paint;
end;
Не написано, какова мощность алфавита, из которого составлено слово.
Можно использовать ascii кодировку:
У-93
с-Е1
п- AF
е-A5
х-EE
справа от символа указано 16-ричное значение символа
переводим из 16-ой в 2-ую систему счисления:
1001001111100001101011111010010111101110 - успех в закодированном виде
Добавил ещё команду печати списка найденных троек, а не только их количества (строка writeln('(',a,', ',b,', ',c,') '); ).
В одном символе i бит. В алфавите N=64 символов.
i=6 бит.
Всего символов К=64×1024.
Объем информации в книге: I = К×i = 64×1024×6 бит = 8×1024×6 байт = 8×6 килобайт = 48 килобайт.
Ответ: 48 килобайт.