Потому что все данные кодируются в формате двоичной сс
131 = 11
132 = 12
133 = 13
140 = А1
Var
c:array [1..20] of integer;
i,n:integer;
Begin
randomize;
for i:=1 to 20 do
c[i]:=random(50);
for i:=1 to 20 do
write(c[i],' ');
for i:=1 to 20 do
if c[i] mod 5=0 then n:=n+c[i];
writeln;
writeln('Сумма: ',n);
<span>End.</span>
Var i,j:integer;
Begin
for i := 1 to 9 do
for j := 1 to 9 do
if (i+j=i*j) then
writeln(10*i+j);
End.
<span>Т.к. все шары разные вероятность того, что вытащат любой из них равна одной восьмой. Получается, что ровно 3 бита информации несет сообщение, о том что достали зеленый шар.</span>