Решите задачи:

1. Дан символ @. Запиши двоичный код код для данного символа, если используется таблица кодировки ASCII.
ответ: а) 00000001; б) 10000000; в) 00101000; г) 01000000.

2. В кодировке Unicode на каждый символ отводится два байта. Определи информационный объём текста в байтах из 71 символа в этой кодировке.

3. Считая, что каждый символ кодируется в 8-битной кодировке КОИ-8, оцените информационный объём следующей фразы: #Сидим_дома
ответ: а) 80 бит; б) 11 байт; в) 10 байт; г) 99 бит.

4. Книга содержит 64 страницы, на каждой из которых в среднем по 16 строк, содержащих 64 символа - каждая. Каков информационный объём книги в Кбайтах, если для кодирования текста использовалась 8-ми битная кодировка КОИ-8?
ответ: а) 65536 Кбайт; б)65536 бит; в) 64 Кбайт; г) 46 Кбайт

Const
    N = 15;
Var A:array[1..N] of integer;
    i,Kc,Kn,Sn:integer;
Begin
Kc:=0;
Sn:=0;
Kn:=0;
Randomize;
Write('Исходный массив:');
For i:= 1 to N do
    Begin
    A[i]:=random(21)-10;
    Write(' ',A[i]);
    if A[i] mod 2 = 0 then Kc:=Kc+1;
    if A[i] mod 2 <> 0 then
       Begin
       Sn:=Sn+A[i];
       Kn:=Kn+1;
       End;
    if A[i]>0 then A[i]:=0;
    End;
WriteLn;
WriteLn('Количество чётных: ',Kc);
WriteLn('Среднее арифметическое нечётных: ',Sn/Kn);
Write('Новый массив:');
For i:= 1 to N do
    Write(' ',A[i])
End.

Пример:
Исходный массив: -1 4 -8 9 -6 -10 0 3 9 -1 1 4 -2 -6 3
Количество чётных: 8
Среднее арифметическое нечётных: 3.28571428571429
Новый массив: -1 0 -8 0 -6 -10 0 0 0 -1 0 0 -2 -6 0

Const
   N = 33;
Var
   A:array[1..N] of integer;
   i:integer;
Begin
Randomize;
Write('Исходный массив:');
For i:= 1 to N do
    Begin
    A[i]:=random(100000)-50000;
    Write(' ',A[i]);
    End;
WriteLn;
WriteLn;
Write('Трёхзначные числа:');
For i:= 1 to N do
    if (99<Abs(A[i]))and(Abs(A[i])<1000) then Write(' ',A[i]);
WriteLn;
Write('Номера четырёхзначных чисел:');
For i:= 1 to N do
    if (999<Abs(A[i]))and(Abs(A[i])<10000) then Write(' ',i)
End.

Пример:
Исходный массив: 12916 46699 20251 -36637 -14335 -33817 -25279 -5819 -6258 23375 15258 1264 10987 42877 9875 3515 -22647 -791 47876 -319 -23437 -43546 -46174 -29378 -17999 -37325 -10130 -38120 -40079 -12188 -34612 -17302 28074

Трёхзначные числа: -791 -319
Номера четырёхзначных чисел: 8 9 12 15 16