Реферат: Вычисление вероятности игры в КРЭКСкости

delay(10000);{Задержка – нужна,чтобы генерируемые числа не повторялись}

end ;{конец моделирования “n” партий }

wer:=(w/n);{Вероятность выигрыша равна отношению числа выигрышей к

общему количеству партий в крэкс }

writeln(‘Вероятность выигрыша равна = ‘,wer);

readln;

END .

После запуска программы требуется ввести количество партий .В результате программа выдаст количество выигранных и проигранных партий , а так же посчитает вероятность выигрыша . -

Количество партий (n)	Количество выигрышей (В)	Количество пригрышей (П)	Вероятность выигрыша P(В)
10	4	6	0.4
100	45	55	0.45
1000	492	508	0.492
10000	4926	5074	0.4926