<h3>PascalABC.NET 3.4.2, сборка 1887 от 30.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var s := ReadlnString;
s.MatchValues('[.,:;\-()!?"]').Count.Println; // №1
(s.MatchValues('\d').Count > 0).Println; // №2
(s.MatchValues('(.)\1').Count > 0).Println; // №3
end.
1. 256 Бит= 32 Байта=<span>0.256 кбита</span><span>
2. 512 Байт= 4 Кбит= 0,5 Кбайт
3. 768 Бит= 0,75 Килобит= 96 Байт
4. 8192 Бит= 1 Кбайт= 8 Кбит
5. 3072 Байт= 24 Кбит= 3 Кбайт</span>
Способы задания алгоритма.
— словесная (запись на естественном языке);
— графическая (изображения из графических символов);
— программная (тексты на языках программирования).
93.75 кб * 1024 * 8 - 768 000 бит
256 уровней громкости = 2^8 = 8 бит
24 кГц = 24 000 Гц
если моно, то 768 000 / 1 / 8 бит / 24 000 Гц = 4 секунды
если стерео, то 768 000 / 2 / 8 бит / 24 000 Гц = 2 сек