Игра в "Крекс" (2 кістки).
Правила такіе.Ігрок кидає 2 кістки і підраховує суму S випали очок.
Він відразу ж виграє, якщо S = 7 або 11, і програє, якщо S є 2; 3 або
12. Будь-яка інша сума - це його "пойнт". Якщо в перший раз випадає
"Пойнт", то гравець кидає кістки до тих пір, поки він чи не виграти, викинувшисвій "пойнт", або не програє, отримавши суму очок, яка дорівнює 7.Каковаймовірність виграшу?

Програма складена мовою TURBO PASCAL 7.0
Program kreks;
Uses crt;
Label 1,2,3,4,5,6; (опис міток)
Var s, s1, s2, point, i, w, p, n, k, h: longint; wer: real;
BEGIN writeln ( 'Введіть кількість партій:'); readln (n); for i: = 1 to n do begin (моделювання "n" партій в Крекс) randomize; (ініціалізація генератора випадкових чисел)

1: s1: = random (7); (генерує цілі числа від 0 до 6 випадковим чином) if s1 = 0 then goto 1; (на кістки не може випасти "0")

4: s2: = random (7); if s2 = 0 then goto 4; s: = s1 + s2; if (s = 7) or (s = 11) then begin (перевірка суми на виграш) w: = w + 1; goto 2; end; if (s = 2) or (s = 3) or (s = 12) then begin (перевірка на програш) p: = p + 1; goto 2; end; point: = s; (якщо ні одна з умов вище не підійшло, то "пойнт"прісваеваем значення s) repeat (кидаємо кістки поки не випаде "пойнт" або 7)

5: s1: = random (7); if s1 = 0 then goto 5;

6 : s2: = random (7); if s2 = 0 then goto 6; s: = s1 + s2; until (s = point) or (s = 7); if s = 7 then p: = p + 1; if s = point then w: = w + 1;

2: writeln ( 'Виграш =', w, 'числу раз'); writeln ( 'Програш =', p, 'числу раз'); 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 |
| |