Токо на 2
<span>Дано: N(ч) = 8; N(б) = 24. </span>
<span>Найти: i(ч) = ? </span>
<span>Решение: </span>
<span>1)N = 8 + 24 = 32 — всего шаров. </span>
<span>2)р (ч) = 8/32 =1/4 — вероятность доставания черного шара. </span>
<span>3) i(ч) = log2 ( 1/(1/4)) = 2 бита. </span>
<span>Ответ: 2 бита.</span>
Var
i, c,t:integer;
A: array[0..9] of integer;
Begin
A[0]:=6;
A[1]:=7;
A[2]:=5;
A[3]:=8;
A[4]:=3;
A[5]:=2;
A[6]:=0;
A[7]:=1;
A[8]:=9;
A[9]:=4;
c:=0;
for i:= 0 to 9 do //ошибка либо в условии либо в коде
if A[i]<A[0]
then
Begin
c:=c + 1;
t:=A[i];
A[i]:= A[0];
A[0]:= t;
end;
writeln('c= ', c);
readln;
<span>end.
Ответ: c=4
</span>
Перваму играку нужна перваму сказать число и пастаяна гаварить 10 тагда он выиграет
Файл с исходным кодом прикреплен в описании (нужно переименовать с 'Program.cs.txt', на просто 'Program.cs'), код продублирован в коментариях к ответу. Если есть вопросы - пиши в коменты.
Код полностью прокоментирован, надеюсь будет понятно.