Ты перепутала. Это в 1 Килобайте 1024 БАЙТА, а в 1 байте - 8 бит. Также в 1 Кб - 8192 бита.
Пытаемся подобрать код, начиная с наименьшей длины.
Коды длины 1.
Е = 0: нет однозначности, 0101 = ОО = ЕТ
Е = 1: нет однозначности, 101 = Т = ЕО
Коды длины 2.
Е = 00: ок, получился префиксный код, про который известно, что он допускает однозначное декодирование.
Е = 01: совпадает с О
Е = 10: нет однозначности, 101101 = ТТ = ЕЛО
Е = 11: совпадает с Л.
Таким образом, есть единственный ответ 00.
Var m,m2,m3: integer;
begin
readln(m);
m2:=round(m-0.45*m);
m3:=m+m2;
writeln('1: ',m,', 2: ',m2,', 3: ',m3,', вместе: ',m+m2+m3);
end.
Пример:
20
1: 20, 2: 11, 3: 31, вместе: 62
3) максимум из введенных 10 чисел, больших 30000 и делящихся на 5
4) если в конце заголовка цикла поставить ';' , то будет выведено следующее:
если последнее, 10 число больше нуля и делится на 5 , то будет выведено это число, иначе 0
5) будет выведено последнее введенное число
6) заменить строку max = 0 на min = 300000 ( или Int.Min ?)
заменить строку if ((a>max)&(a % 5 == 0)) на строку
if ((a<min) & (a % 2) == 0))
заменить строку max=a на min = a
изменить строку Console.Writeln(max) на Console.Writeln(min)