Вдвоичную систему 10001, 111011, 100011

10001 = 100111000100012

111011 = 110110001101000112

100011 = 110000110101010112

 

Ответ: 1909 var   s : string;   n : integer; function incs(a : string) : string; begin   a[length(a)]: =chr(ord(a[length(a)])+1);   if a[length(a)]> 'd' then       incs: =incs(copy(a,1,length(a)-1))+'a'   else incs: =a; end; function check(a : string) : boolean; begin   check: =false;   if (pos('a',a)> 0) then   begin       delete(a,pos('a',a),1);       if (pos('a',a)> 0) then check: =true;   end; end; begin   s: ='aaaaaa'; n: =0;   while s< > 'dddddd' do   begin   {  writeln(s);   }       if check(s) then inc(n);       s: =incs(s);   end;   writeln(n); end.

Каждый символ  в  utf-16  кодируется  2  байтами  (16 битами)  (ну вообщето есть еще расширенные коды со всякими иероглифами которые  кодируются 4, но кирилица туда не входит),  т.о.  сообщение  имеет  длину 20*2=40  байт  (320 бит) в  кодировке  koi8-r  на  кодирование  одного  символа  отводится  1  байт  (8 бит),  т.о.  длина  сообщения  будет  20*1=20  байт  (160 бит) следлвательно  сообщение  сократится  в  два  раза  320-160=160  бит ответ  160