Вот, держи
Будут вопросы, обращайся
Форматирование текстового документа
Форматирование документа – это изменение его внешнего вида. WORD обеспечивает форматирование документов на пяти различных уровнях:
<span>на уровне символов (изменение гарнитуры, начертания, размера и цвета шрифта, межбуквенного интервала в слове, анимации и т. д. ) </span>
Не самый рациональный метод решения, но как говорится чем смог тем помог)
var a,b,c,x,kc,kn,k1,k2:integer;
<span>begin </span>
<span>kc:=1; </span>
<span>kn:=1; </span>
<span>k1:=0; </span>
<span>k2:=0; </span>
<span>a:=0; </span>
<span>b:=0; </span>
<span>writeln('Введите число x'); </span>
<span>read(x); </span>
<span>while x>0 do begin </span>
<span>c:=x mod 10; </span>
<span>if c mod 2=0 then begin </span>
<span>inc(k1); </span>
<span>a:=a+c*kc; </span>
<span>kc:=kc*10; </span>
<span>end; </span>
<span>if c mod 2<>0 then begin </span>
<span>inc(k2); </span>
<span>b:=b+c*kn; </span>
<span>kn:=kn*10; </span>
<span>end; </span>
<span>x:=x div 10; </span>
<span>end; </span>
<span>if k1>k2 then writeln('Четных больше нечетных') else if k1=k2 then writeln('Количество четных = количеству нечетных') else writeln('Четных меньше нечетных'); </span>
<span>writeln(a,' ', b); </span>
<span>end. </span>
Потому что в ASCII всего 2^8 = 256 символов (обычно это цифры, символы, латиница большие и маленькие буквы, национальный алфавит большие и маленькие буквы)
в юникоде же все сложнее. UTF-16 действительно занимает 16 бит на символ и имеет в себе 2^16 = 65`536 символов, куда помещается множество алфавитов разных языков, в том числе куча иероглифов, которые в ASCII просто не помещались. Описание наборов символов есть на вики
но есть еще и UTF-8 юникодная кодировка которая организована куда сложнее, занимает по 8 бит на символ для латиницы, но дальше идет расширение. Например символы кириллицы занимают уже по 16 бит
в юникоде есть и другие типы кодировок типа UTF-32LE соответственно 32 бита на символ
так что утверждение что "<span>код Unicode-2 байта на символ</span>" вообще говоря сомнительно без уточнения конкретной кодировки.
