Вкорзине лежат 32 шара: черные, белые и красные. сообщение о том, что достали черный шар несет 2 бита информации. белых шаров в 3 раза больше красных. сколько шаров каждого цвета было в корзине

Ч-2шара
б-6шаров
к-32-(2+6)=24

1, 2. Посчитаем тех, кто записался хоть куда-нибудь.
Сложим тех, кто записался на макраме, на футбол и в театральный кружок: 14 + 18 + 10 = 42. В этой сумме те, кто записались в 2 кружка, участвуют дважды, те, кто в три кружка - трижды. Чтобы получить нужное число, нужно вычесть число тех, кто записался ровно в 2 кружка, и удвоенное число тех, кто записался в три кружка. Получаем 42 - (3 + 8 + 5) - 2 * 2 = 22.
Если записали хотя бы куда-нибудь 22 человека, то никуда не записались 36 - 22 = 14 человек.

3. Из записавшихся на макраме (18 человек) нужно убрать тех, кто записались еще на 1 кружок (8 человек - еще на футбол, 5 человек - занимаются и театром) и тех, кто записался везде (2 человека). Остаётся 18 - 8 - 5 - 2 = 3 человека, записавшихся только на макраме.

4. Аналогично, 14 - 3 - 8 = 3 человека записались только на футбол.

5. Аналогично, 10 - 3 - 5 = 2 человека выбрали только театральный кружок.

6. По два кружка посещают 3 + 8 + 5 = 16 человек.

ответ в комментарии,для лучшей читаемости кода.
program chicla;var a,b,c,d,f,sum:integer;  sr:real;begin Writeln('Ââåäèòå ïåðâîå ÷èñëî'); readln(a) ; Writeln('Ââåäèòå âòîðîå ÷èñëî'); readln(b); Writeln('Ââåäèòå òðåòüå ÷èñëî'); readln(c); Writeln('Ââåäèòå ÷åòâåðòîå ÷èñëî'); readln(d); f:=a+b; if f>20 then  begin    f:=f-10;    writeln(f);  end  else   begin    f:=f+10;    writeln(f)   end; if b>=0 then  begin   a:=a-1;   b:=b-1;   c:=c-1;   d:=d-1;   writeln('1 ÷èñëî ïîñëå óìåíüøåíèÿ íà åäèíèöó= ',a);   writeln('2 ÷èñëî ïîñëå óìåíüøåíèÿ íà åäèíèöó= ' ,b);   writeln('3 ÷èñëî ïîñëå óìåíüøåíèÿ íà åäèíèöó= ' ,c);   writeln('4 ÷èñëî ïîñëå óìåíüøåíèÿ íà åäèíèöó= ' ,d);  end else  begin   sr:=(a+b+c+d)/4;   writeln('Ñðåäíåå àðèôìåòè÷åñêîå = ' ,sr);  end;end.