xagiwoмат-ламерПопробовала смоделировать задачу на Паскале. Не знаю, поймёт ли кто, писала для себя:
Код:
begin
var(s1, s0) := (0, 0); //Число побед
loop 10000 do
begin
var (n1, n0) := (0, 0); //Число орлов в опыте
loop 100 do
begin
var (n, o1, o0) := (100, 0, 0); //Число бросков, орлов1, орлов0
for var i := 0 to n - 1 do
begin
if random(2) > 0 then //Бросание монеты игроком A
inc(o1);
if random(2) > 0 then //Бросание монеты игроком B
inc(o0);
end;
if random(2) > 0 then //Доп. бросок A
inc(o1);
if o1 > o0 then
inc(n1)
else
inc(n0);
end;
if n1 > n0 then
inc(s1)
else
if n1 < n0 then
inc(s0);
end;
print(s1, '=', s0, s1/s0);
end.
Разница между s1 и s0 - числом побед А и не-побед А, действительно, очень маленькая.