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

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 Кбайт

// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
uses GraphABC;

procedure OutLightGreen(n:integer);
begin
  var OldColor:=FontColor;
  SetFontColor(clLightGreen);
  Write(n:5);
  SetFontColor(OldColor)
end;

begin
  var a:=MatrixRandom(10,14,-180,320);
  var m:=ReadInteger('n=');
  Writeln;
  SetFontColor(clWhite);
  Font.Style:=fsBold; Font.Name:='Courier';
  Brush.Color:=clBlack; Window.Clear(clBlack);
  var k:=0;
  for var i:=0 to 9 do begin
    for var j:=0 to 13 do
      if a[i,j]>m then begin
        Inc(k); OutLightGreen(a[i,j]) end
      else Write(a[i,j]:5);
    Writeln
    end;
  SetFontColor(clRed);
  Writeln('Количество элементов равно ',k)
end.

1.
const n=20; 
var
  a:array[1..n] of integer;
  i,k,s:integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do begin
  a[i]:=Random(51)-25;
  Write(a[i]:4)
end;
writeln;
write('K = '); readln(k);
s:=0;
for i:=1 to n do 
 if a[i] mod k = 0 then s:=s+a[i];
Writeln('s = ',s);
end.

Пример:
Исходный массив:
18 -24 -4 -21 15 19 18 -16 -1 -8 7 -21 21 22 -24 -4 18 -16 24 4
K = 3
s = 24

2.
const n=10; 
var
  a:array[1..n] of integer;
  i:integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do begin
  a[i]:=Random(11);
  Write(a[i]:4)
end;
writeln;
writeln('Выбранные элементы:');
for i:=1 to n do 
 if a[i]<=i then Write(a[i]:4) else write(' ':4);
Writeln;
end.

Пример:
Исходный массив:
   9   1   2   8   2   7   1  10   8   3
Выбранные элементы:
       1   2       2       1       8   3