Можно решить, смоделировав ситуацию.
1. Пишите процедуру, которая умеет расставлять фигуры случайным образом.
2. Пишите функцию, которая на входе получает позицию на доске, проверяет под ударом ли король от вражеской ладьи и возвращает да/нет.
3. Запускаете цикл, который запускает процедуру 1 и проверяет условие функцией 2. При увеличении количества итераций число = Да/Все будет стремиться к некоему числу, которое и будет ответом.
