Укажите мощность множеств, каждое из которых задано его характеристическим свойством

укрытся одеялом и лечь спать,   и пить лекартва и остаться дома

2^i=n, n = 16

2^i=16

i=4 бит

50 * 4 = 200 бит

200: 8 = 25 байт

varb: array [1..8] of integer; r,q: integer; begin  for r: =1 to 8 do  begin  q: =0;   read(b[r]);   end;   for r: =1 to 8 do  if b[r] mod 2=1 then q: =q+b[r];   writeln;   writeln('сумма нечетных чисел равна ',q); end.

трех зайцев по углам, двоих вдоль стен