3) 2^27 для перевода в байты умножаем на 2^(-3), затем на 2^10 в килобайты и на 2^10 в мегабайты, т.е. ответ 16Мбайт.
4) Надо посчитать количество символов в сообщении: 3 * 25 * 60 = 4500; Сообщение занимает 1125 байт, посчитаем, сколько байт занимает каждый символ: 1125 / 4500 = 0.25; Т.к. символ занимает 0.25 байт, одним байтом можно закодировать 4 символа. Байт состоит из 8 бит. 8 / 4 = 2 (количество битов чтобы закодировать каждый символ) Двумя битами можно закодировать 4 символа, значит в алфавите может быть до четырех символов
Var a: array of integer; // Объявление массива целых чисел i, n: integer; // объявление целочисленных переменных begin // Запросим с клавиатуры размер массива // и запишем его в переменную n write('введите n:'); readln(n);
// Теперь выделим память под n элементов массива SetLength(a, n);
// теперь запросим с клавиатуры n чисел для массива for i := 0 to n-1 do begin write('a[', i, ']='); readln(a[i]); end;
// теперь в цикле уменьшим каждый элемент на единицу for i := 0 to n-1 do a[i] := a[i] - 1;
// распечатаем массив for i := 0 to n-1 do write(a[i], ' '); end.
1) 2 кб.
1 байт=8 бит
1 килобайт=1024 байта
8x1024=8192
16384:8192=2
3) 2^27 для перевода в байты умножаем на 2^(-3), затем на 2^10 в килобайты и на 2^10 в мегабайты, т.е. ответ 16Мбайт.
4) Надо посчитать количество символов в сообщении: 3 * 25 * 60 = 4500;
Сообщение занимает 1125 байт, посчитаем, сколько байт занимает каждый символ: 1125 / 4500 = 0.25;
Т.к. символ занимает 0.25 байт, одним байтом можно закодировать 4 символа. Байт состоит из 8 бит.
8 / 4 = 2 (количество битов чтобы закодировать каждый символ)
Двумя битами можно закодировать 4 символа, значит в алфавите может быть до четырех символов
i, n: integer; // объявление целочисленных переменных
begin
// Запросим с клавиатуры размер массива
// и запишем его в переменную n
write('введите n:');
readln(n);
// Теперь выделим память под n элементов массива
SetLength(a, n);
// теперь запросим с клавиатуры n чисел для массива
for i := 0 to n-1 do begin
write('a[', i, ']=');
readln(a[i]);
end;
// теперь в цикле уменьшим каждый элемент на единицу
for i := 0 to n-1 do
a[i] := a[i] - 1;
// распечатаем массив
for i := 0 to n-1 do
write(a[i], ' ');
end.