<em>// PascalABC.NET 3.2, сборка 1338 от 16.11.2016</em> begin var s100:=Arr('','сто','двести','триста','четыреста','пятьсот', 'шестьсот','семьсот','восемьсот','девятьсот'); var s10:=Arr('','десять','двадцать','тридцать','сорок','пятьдесят', 'шестьдесят','семьдесят','восемьдесят','девяносто'); var s11:=Arr('','одиннадцать','двенадцать','тринадцать','четырнадцать', 'пятнадцать','шестнадцать','семнадцать','восемнадцать', 'девятнадцать'); var s1:=Arr('','один','два','три','четыре','пять','шесть', 'семь','восемь','девять'); var n:=ReadInteger('Укажите трехзначное натуральное число'); var s:=s100[n div 100]; var n10:=(n div 10) mod 10; var n1:=n mod 10; case n10 of 0:if n1>0 then s:=s+' '+s1[n1]; 1:if n1=0 then s:=s+' '+s10[1] else s:=s+' '+s11[n1]; else begin s:=s+' '+s10[n10]; if n1>0 then s:=s+' '+s1[n1] end end; Writeln(s) end.
Если мы используем 16-буквенный алфавит, то один символ кодируется 4 битами (2^i=16 i=4 бит). Найдем общее количество символов в тексте: 25*35*60=52500 символов Общее количество бит: 52500*4=210000 бит Переведем в байты: 210000:8=26250 Ответ: 26250 байт
begin writeln('Конец стиха - строка пустая'); repeat for j := 1 to length(s) do if (lowcase(s[j]) in ['а', 'е', 'ё', 'и', 'о', 'у', 'ы', 'э', 'ю', 'я']) then i := i + 1; readln(s); until s = ''; writeln(i, ' гласных букв'); end.