Использование NProbability [] или Probability [] для определения вероятности 3 или больше выпадений из 4 подбрасываний монеты

Можно ли вычислить вероятность выпадения 3 или более голов из 4 подбрасываний монеты с помощью функций Probability или NProbability.

Это не вопрос о тривиальном ответе на эту проблему, это больше, чтобы получить представление о том, как решить такого рода проблемы с помощью Mathematica с использованием распределений.

Итак, используя 4 случайные переменные из Распределения P

, я надеялся, что что-то вроде этого поможет, но это не сработало. Я получаю 0.

P = BernoulliDistribution[0.5];
vars = List[Distributed[a,P],Distributed[b,P],Distributed[c,P],Distributed[c,P]];
NProbability[Count[ {a,b,c,d}, 1] >= 3,  vars]

Мы будем благодарны за любые идеи.