:заполнить массив нулями и единицами, при этом данные значения чередуются, начиная с нуля.

var a: array [1..20] of integer;

i: integer;

begin

for i: =1 to 20 do

if i mod 2 = 0 then a[i] : = 1 else a[i] : = 0;

writeln (a)

end.

значит так, используем единственную в информатике формулу

n=2^i

n-это количество символов в алфавите, значит n=64

64 это 2 в 6 степени, значит i=6 - это информационный объем одного символа, а нам надо найти информационный объем 3072 символа, значит

6*3072 = 18432 бита = 2304 байта

(12-3): (4+5)=1

1х2х3-4+5-6=1

(12: 3+4+5): (6+7)=1

(1+2-3+4+5+6-7): 8=1