Улукоморья дуб зелёный златая цепь на дубе том найти i-?

1) 1. 2 в 13 степени бит=8192 бита. То есть биты выражаем в килобайты. Решение:8192 бита=1 килобайту. ответ:1 килобайт.

2. 0.125*1024*1024=1048576

3. 1/2 кБ=1024/2 байт=8*1024/2 бит=4096 бит.

4. 2 в 23 это 8388608 бит, тк в 1 байте 8 бит, то 8388608 : 8=1048576 байт, следовательно 1мб

5. 15 кбайт= 120000 бит, 120000 бит= 120 кбит

2)Длина данного текста 32 символа

3) 150*16=2400 бит, 2400 бит= 300 байт, ответ 300 байт

4) -

5) количество последовательностей будет равно количеству двоичных чисел, которые можно записать с символов, т.е. 2 ^ 7 = 128

Объяснение:

Var
 a: array[0..99] of integer;
begin
  //заполняем массив случайными числами
  Randomize();
  for var i:=0 to 99 do a[i]:=random(-100,100);
 
  //а теперь заменяем все отрицательные элементы на ноль
  for var i:=0 to 99 do 
    if (a[i]<0) then a[i]:=0;
end.

Вот второй вариант программы, со вводом с клавиатуры и со сдвигом нулевых элементов в хвост массива
program pr_1;constn = 6;varA: array [1..n] of integer; n1: integer;
beginWrite('введите ');for i := 1 to n doread(A[i]);  n1:=n;  for var i:=n downto 1 do{в цикле просматриваем элементы массива}  begin    if A[i] < 0 then {проверяем, нужно ли удалять i-ый элемент}    begin{если нужно – удаляем i-ый элемент}      for var j := i to n1 - 1 do         A[j] := A[j + 1]; {сдвигаем}       A[n1]:=0;        Dec(n1); {уменьшаем количество элементов}    end;  end;  for var i:=1 to n1 do    write(A[i], ' ');end.