71. на языке turbo pascal 7.0 имя может иметь длину 1. не менее 3 2. не менее 5 3. не более 8 4. 16 5. не более 226

Наверное "5. не более 226" символов.
это связанно с длиной строки

1)

Аня сестра Вадим. Вера сестра Аркадия. Ира сестра Артёма

В условии сказано что один из них не клал грибы в корзину своей сестры, а про других не говорилось, Вадим и Аркадий клали грибы в корзины Ани и Веры. Артём не клал не в одну корзину, но так как каждый именно своей сестре, то Вадим Ане, значит она его сестра, Аркадий Ане и Вере, его сестрой не может быть Аня так как она сестра Вадима, значит его сестра Вера. Остаётся Артём и Ира, значит Ира сестра Артёма.

2)

Б

3)Объем информации, который занимает один символ компьютерного алфавита из 256 символов = 8 бит или 1 байт. В 1кбайте=1024бит

Значит 11×1024=11264

Далее 22528-11264=11264.

Получается мощность алфавита в 2 раза больше объёма данного сообщения.

Вот такая программа позволяет инвертировать нечётные биты во введённом 16-ти разрядном числе (тип word).

Если что, счёт битов я брал начиная с нуля. Поэтому, младший бит (нулевой) считается чётным. Если вдруг у вас там принято считать биты начиная с единицы, то младший будет нечётным, и тогда в строке где b := 2;  надо поставить единицу вместо двух.

Также, я сделал отображение всех 16 разрядов введённого числа, и числа которое получилось после инверсии битов (то есть, число выводится в двоичном виде, начиная со старших разрядов). Это сделано для удобства проверки работы программы.

После проверки лучше удалить эти две строки (они выделены жирным шрифтом), ведь в задании не сказано выводить числа в двоичном виде.

var

a, b, n: word;

begin

write('Введите целое неотрицательное число: a= ');

readln(a);

b:=32768;for n:=15 downto 0 do begin write((a mod(b*2))div b);b:=b div 2;end;writeln();

b := 2;

for n := 0 to 7 do

begin

if (a mod (b * 2)) div b = 0

then a := a + b

else a := a - b;

b := b * 4;

end;

b:=32768;for n:=15 downto 0 do begin write((a mod(b*2))div b);b:=b div 2;end;writeln();

writeln('После инверсии нечётных битов: a= ', a);

end.