с программой на Visual C++. Или хотя бы подтолкните в верном направлении. Мало времени, боюсь, сама не успею разобраться, для меня пока сложно.

Дана битовая последовательность (можно с клавиатуры ввести). Определить все последовательности единиц, идущих подряд. Для каждой последовательности вывести номер бита начала и количество бит. Должно соблюдаться условие: обязательно использование только поразрядных операций для выполнения задания. Математические операции с индексами и счетчиками разрешены

1. Серверами надо управлять, контролировать, соответственно есть компьютеры, с них через локальную сеть контролируют сервера. Именно так и делают в дата-центрах.

2. Локальная сеть - это компьютеры находящейся в одном здании, по-крайней мере до куда дотянется провод интернета, или сигнал Wi-Fi.
Корпоративная сеть может содержать в себе многие корпуса/офисы той или иной компании, обычно передают сигнал (в корпоративной примерно таким образом:
Компьютеры одного офиса (например) подключаются к VLAN, в то время к VLAN подключен обычный интернет по которому передает сигнал к другому VLAN который находиться в другом офисе. В большинстве случаев, хоть и идет конечная передача данных через обычный интернет, но сайты все там заблокированы, в основном используют FTP протокол для передачи данных, не более.

3. Своими словами децентрализация это перераспределение. В данном случае имеется виду перераспределения обработки той или иной информации между компьютерами/серверами, даже если один сервер/компьютер выйдет из строя, обработка будет идти на остальных компьютерах. 

Const
  MAX_SIZE = 10;
 
var
  a: array[1..MAX_SIZE] of integer;
  i, size: integer;
 
procedure delete_odd_elements();
var i, j: integer;
begin
  i := 1;
  repeat
    if odd(a[i]) then
    begin
      dec(size);
      for j := i to size do
        a[j] := a[j + 1]
    end
    else inc(i);
  until i > size;
end;
 
begin
  writeln('Исходный массив: ');
  size := MAX_SIZE;
  for i := 1 to size do
  begin
    a[i] := random(100);
    write(a[i] : 3);
  end;
  delete_odd_elements;
  writeln;
  writeln('Полученный массив: ');
  for i := 1 to size do
    write(a[i] : 3);
end.