Найдем: х-информационный объем до перекодировки
Решение: Для хранения 1 символа в кодировке КОИ-8 используется 8 бит или 1 байт, в кодировке Unicode для хранения 1 символа требуется 16 бит или 2 байта.
Таким образом при перекодировании информационный объем сообщения увеличился в 2 раза (количество символов при этом осталось таким же).
То есть информационный объем после перекодировки= 2х.
Составим уравнение:
х+8000=2х
2х-х=8000
х=8000 бит
Ответ: Информационный объем сообщения до перекодировки составлял 8000 бит
<span>Патч-кордом называют провод длиной до 5 м, соединяющий выход сетевой карты компьютера с разъемом на розетке. </span>
ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Вывод ИЗ "...\Отделы\Обмен\", Приём;
ПЕР
N, M: ЦЕЛ;
УКАЗ
Вывод.Цепь("Введите число тюльпанов на грядке: ");
N := Приём.Число();
Вывод.Цепь("^Введите число лилий на грядке: ");
M := Приём.Число();
Вывод.ЧЦел("^Всего цветов Оля посадила: %d шт.", 5 * N + 7 * M, 0, 0, 0)
КОН Задание.
Кол-во символов=65536, объем=24Кбайт
инф.объем одного символа=24*1024*8бит/65536=3 бита
мощность N=2³=8 символов в алфавите
Ответ:
program Test;
var
a: array of Integer;
n, i, c, left, right: Integer;
begin
Write ('Введите N: ');
ReadLn (n);
SetLength (a, n);
Write ('Введите элементы массива:');
for i := Low (a) to High (a) do
Read (a [i]);
c := 0;
for i := Low (a) to High (a) do begin
if i > Low (a) then
left := i - 1
else
left := High (a);
if i < High (a) then
right := i + 1
else
right := Low (a);
if a [left] = a [right] then begin
Inc (c);
Write (i + 1, ' '); //для проверки
end;
end;
WriteLn;
WriteLn ('Количество = ', c);
ReadLn; ReadLn;
end.