Список проголосовавших за комментарий "Код на R можно проще: <br/> <blockquote><p>table(rle(sample(c(«Орел»,«Решка»), 1000, replace = TRUE)))</p></blockquote><p>В итоге имеем:<br/> <img src="http://dl1.joxi.net/drive/2016/05/05/0009/0799/611103/03/e571526505.png" width="393" height="168"/><br/> <br/> т.е. при 1000 подбрасываний монеты может быть даже 1 раз, когда 15 (!) раз подряд выпадет орел.</p>"