сама только сделала. вот решила помочь
Можно через макрос VBA Excel
Sub
zapolnut()
For i = 1
To 100
Cells(i, 1)
= Rnd()
Cells(i, 2)
= 2 * Cells(i, 1)
Next i
End Sub
Количество символов в алфавите (=количество различных символов в "ZLXUZX&$NO") = 8. Объем одного символа = log(2)8 = 3 бита. Объем ответного сообщения = (10/2)*3 = 15 бит
Var
a, b:real;
begin
readln(a, b);
writeln(a * b * 0.5);
end.