две безпристрастни монети се хвърлят . намери вероятността за получаване на най-много една глава ?
"s   hh , ht , th , tt  e  случай на получаване на най-много една глава e   tt , ht , th  p ( e )  3 / 4 отговорът е b"
negate_prob(divide(const_1, power(const_2, const_3)))