три безпристрастни монети се хвърлят . каква е вероятността за получаване на най-много две глави ?
Обяснение : тук s   tt , thth , htt , thh , hth , hht , hhh  let e  събитие за получаване на най-много две глави . тогава e  tt , tth , tht , ht , thh , hth , hth  .
negate_prob(divide(const_1, power(const_2, const_3)))