Все просто. если сообщение из 20 символов это 100 бит, значит один символ это 100/20 = 5 бит. Размер алфафита считается по формуле 2 в степени размера символа. 2 в степени 5 = 32
Размер алфавита = 32 символа
//PascalABC.NET версия 3.2, сборка 1467
//Если программа не запускается, то обновите версию
begin
var m := ArrRandomReal(5, 1, 10); // автоматический ввод данных
Println(m);
Println(m.Aggregate(1.0, (x, y)-> x * y));
end.
Объем сообщения I=650 битов
Количество символов K=130
I=К*i => i = I / K = 650/130=5 битов
ответ:5 битов.
1-когда щелкнуть по флажку
2-очистить
3-идти в 0 0
4-опустить перо
5-повторять 4 раза
------------------------------
идти 100 шагов
повернуть на 90 градусов
------------------------
6-поднять перо
Я возможно не понял что тебе надо , перед котом пишешь
for i=1 to 6 do
Begin
код
end;
и убудет 6 одинаковых