Var n:integer;
begin
writeln('Введите число');
read(n);
if (n>=1000) and (n<10000) and (n mod 5=0) then writeln('Удача');
end.
1024 это 2 в 10 степени. Вычисляем сколько символов в тексте - 714000. 714000*10=7140000 бит
Двоичная запись содержит 5 значащих цифр.
//PascalABC.NET
//Версия 3.3, сборка 1611
begin
if (ReadReal('введите возраст:')<18) then write('несовершеннолетний') else write('совершеннолетний');
end.
Код Бодо отводит на каждый символ по 5 бит вне зависимости от частоты использования символов.
Меж тем, в естественных языках есть очень часто используемые буквы, и есть буквы, применяемые реже.
В коде Морзе частым буквам сопоставлены короткие комбинации, двухбитовые, более редко применяемым буквам - более длинные коды.
Таким образом, код Морзе позволяет передать больше символов, чем код Бодо по одному и тому же каналу связи