1. В сообщении 110 символов, всего 440 бит. Найдем количество бит на символ 440/110 = 4 бит
2. Мощность алфавита = 2 в степени количества бит= 2⁴ = 16
Ответ: 16
Var sum,i:integer;
begin
for i:=100 to 1000 do
if (i mod 3=0) then sum:=sum+i;
writeln('Сумма чисел кратных 3 равна ',sum);
end.<span>
</span>
( A U B ) ^ B ^ A = пустому множеству.
Сначало мы обьединяем два множества, потом вычитаем B, потом А
000 R = 0
001 R = 0
010 R = 1
011 R = 1
100 R = 0
101 R = 0
110 R = 0
111 R = 0
Код программы:
Var A,B,C : Boolean;
Begin
For A:=False to True do
For B:=False to True do
For C:=False to True do Writeln(Ord(A),Ord(B),Ord(C),' R = ',ord((not A) and (B or not C) and B));
end.