1. Правительство планеты Вау решило разработать двоичный код и перевести в него важную информацию. Какой разрядности потребуется двоичный
код, если алфавит планеты Вау содержит 32 символа?
2. Алфавит инопланетян состоит из 128 уникальных
символов. Сколько битов будет весить один символ
этого алфавита, если перевести его в двоичный код?
3. Для кодирования каждого символа в алфавите
используется разрядность – 6 битов (i). Сколько
символов в этом закодированном алфавите?
4. Для каждой буквы алфавита используется 3 бита. Сколько
букв в этом алфавите?
5. В сообщении 53 символа, а каждый символ кодируется 4
битами. Каков информационный вес всего сообщения?
6. В сообщении 47 символов, а разрядность двоичного кода каждого
символа – 3 бита. Каков объём информации этого сообщения.
7. Сообщение состоит из одного слова .
Каждая буква кодируется 6 битами. Каков информационный вес этого
сообщения?
8. Информационное сообщение объёмом 130 битов состоит из 65 символов.
Каков информационный вес каждого символа этого сообщения?
9. Информационное сообщение объёмом 420 битов состоит из 60 символов.
Каков информационный вес каждого символа этого сообщения?
10. Мила написала длинное письмо из 5 страниц. На каждой странице 24
строчки. В каждой строке 18 символов. Каждый символ кодируется 7 битами.
a[0]=0
a[1]=1
a[2]=2
a[10]=10
во втором цикле:
i=0
a[5]=a[5]
a[2]=a[10]
получим, что a[2]=10 и a[10]=10
i=1
a[4]=a[6]
a[3]=a[9]
получим, что a[3]=9; a[9]=9; a[4]=6; a[6]=6
i=2
a[3]=a[7]
a[4]=a[8]
получим, что a[3]=7; a[7]=7; a[4]=8; a[8]=8
i=3
a[2]=a[8]
a[5]=a[7]
получим: a[2]=8; a[8]=8; a[5]=7; a[7]=7
i=4
a[1]=a[9]
a[6]=a[6]
получим: a[6]=6; a[1]=9; a[9]=9
i=5
a[0]=a[10]
a[7]=a[5]
получим: a[0]=10; a[10]=10; a[7]=7; a[5]=7
полученный массив:
a[0]=10
a[1]=9
a[2]=8
a[3]=7
a[4]=8
a[5]=7
a[6]=6
a[7]=7
a[8]=8
a[9]=9
a[10]=10
10 9 8 7 8 7 6 7 8 9 10
ответ: 1
const
a : array[1..10] of integer = (12, 5, 4, 1, 9, 7, 8, 2, 3, 2);
var k, _counterW, _counterS: integer;
begin
_counterS := 0;
_counterW := 0;
for k := 1 to 10 do
begin
if (a[k] = 12) or (a[k] = 1) or (a[k] = 2) then
_counterW := _counterW + 1
else if (a[k] = 6) or (a[k] = 7) or (a[k] = 8) then
_counterS := _counterS + 1;
end;
writeln('Количество родившихся летом:', _counterS);
writeln('Количество родившихся зимой:',_counterW);
if _counterW > _counterS then
writeln('Зимой родилось большее количество учащихся!')
else if _counterS > _counterW then
writeln('Летом родилось большее количество учащихся!')
else
writeln('Летом и зимой родилось одинаковое число учащихся!');
end.