Нужно написать пример программ к каждому из ответвлений. !

1)1/512 Мб = 2048 Б; 2048/1024 = 2 байт/символ
2)1/16 Мб = 65536 байт; в 16-ти симв. алфавите на кодировку 1-го символа нужно 4 бита, значит в 1 байте 2 симв. если объем 65536 байт, умножь на 2
получишь 131072 символа
3)12288 бит делишь на 8 = 1536 байт делишь на 1024 (1 кб=1024 б) = 1,5 кб
4)для кодировки 1 символа 10 симв. алфавита нужно 4 бита, 4*384 = 1536 бит, делишь на 8, =192 байта =0,1875 кб
5)30*70*5=10500 символов. Т. к. в случае 256 симв. алфавита нужно на 1 символ 8 бит ( 1 байт) , то получишь 10500 байт
Вот решение задачи.

var

 n, k, s, sa: integer;

 

begin

 k := 0;

 s := 0;

 sa := 0;

 writeln('Введите последовательность, окончание ввода - число 0');

 repeat

   read(n);

   if (n mod 4 = 0) and (n mod 10 = 2) then s := s + n;

   if (n <> 0) and (n < 100) then inc(k);

   sa := sa + n

 until n = 0;

 readln;

 writeln('Сумма чисел, кратных 4 и заканчивающихся на 2, равна ', s);

 writeln('Количество чисел, не больших 100, равно ', k);

 writeln('Сумма последовательности равна ', sa);

 readln

end.

Объяснение: