Var
a: array [4..9] of longint;
q:longint;
begin
for q:=4 to 9 do
begin
a[q]:=random(10)+1;
write(a[q],' ');
end;
writeln();
for q:=4 to 9 do
begin
if a[q]<5 then a[q]:=a[q]-1;
write(a[q],' ');
end;
end.<span>
</span>
121212 – можно расшифровать как АБАБАБ или ККК, например
253010 – ЧЬИ или БДЬИ
203033 – ТЬЯ или ТЬВВ
Остается 203105 (ТВИД). Эта кодовая цепочка расшифровывается однозначно: 0 может появиться только в конце кода, поэтому в коде обязательно есть 20 и 10. Получается однозначное разбиение на буквы 20-3-10-5.
4 часа = 4 * 60 минут = 240 минут
Всего слов 240 * 160 = 38400 слов
В каждом слове 6 символов, всего символов = 38400 * 6 = 230400
Если на 1 символ отводить 1 байт, то получим
230400 байт = 230400/1024 Кб = 225 Кб
Ответ. 225 Кб