1-18 без точки с точкой 19
2-33 без восклицания 34 с
3-15 без восклицания 16 с
все в байтах
begin
ReadInteger('num =').ToString.ToCharArray
.IndexesOf(x -> x = '7').Select(x -> x + 1).Println;
end.
Примерно так .
_______________________________________________________
Переводим килобайты в биты
6*1024*8 = 49152
делим биты на длину текста 49152/6144=8
по формуле l = 2^i находим i = 3
⇒мощь алфавита = 3
Ответ:
1/30 часа = 2 минуты = 120 секунд
15 Кбайт = 15*2^10 байт= 15*2^13 бит
(15×2^13)/120= 5*2^11/10=2^10=1024 бит/сек