Var
mas: array [1..20] of integer;
k: integer;
begin
randimize;
//заполнение массива
for k:=1 to 20 do begin
mas[k]:=random(1000);
end;
for k:=1 to 20 do begin
if k and 1=1 then
mas[k]:=mas[k]*2 else mas[k]:=mas[k]-1;
end;
//вывод массива
for k:=1 to 20 do
writeln(mas[k]);
end.
Все 6 страниц занимают 8775 байт памяти
1 страница занимает 8775/6 = 1462.5 байт
На 1 строке 1462.5 / 30 = 48.75 байт
По формуле log2(64) = 6 бит уходит на кодировку 1 символа
48.75/6 = 8.125 байт
8.125*8 = 65 бит.
Ответ:
1100100
Объяснение:
100 делишь на 2 потом 50 на 2 и так далее под один столбик, а потом остатки записываешь в ответ, начиная с конца.
16 =
следовательно 4 бита на символ
4*32 =128 бит(информации несёт)