Представим себе следующий формат кодирования символов. Каждый символ кодируется одним, двумя или тремя байтами. Каждому значению
Представим себе следующий формат кодирования символов. Каждый символ кодируется одним, двумя или тремя байтами. Каждому значению первого байта, которое имеет хотя бы один нулевой бит, соответствует некоторый уникальный символ. В случае же, если все биты в первом байте равны единице, за ним следует второй байт. Каждому значению второго байта, содержащему хотя бы один нулевой бит также сопоставлен уникальный символ. В случае же, если и все биты во втором байте равны единице, за ним следует третий байт, каждому значению которого также сопоставлен уникальный символ. Сколько различных символов можно закодировать таким образом?
Const n=15; var a,s:array [1..100] of integer; i,j:integer; begin for i:=1 to n do begin a[i]:=random(15); write(a[i],' '); end; j:=1; writeln; writeln('Полученный массив'); for i:=1 to n do begin if (a[i] mod 2 = 0) and (a[i]>0) then begin inc(j); s[j]:=a[i]; write(s[j],' ');<span> end; end;</span>