Написать программу, которая по введенному числу от 1 до 12 (номеру месяца) выдает все приходящиеся на этот месяц праздничные дни (например, если введено число 1, то должно получиться 1 января – Новый год, 7 января – Рождество).
(Visual Basic )

Если игроков два, то первый может выиграть, если своим ходом добавит в каждую кучу по 2 камня. любой ход второго игрока в этом случае ведет к победе первого. Так что ответ а) игрок, делающий первый ход.
начало :   2к.   3к.   4к.
1 ход 1-го игрока +2 камня к каждой куче
стало:      4       5     6       (всего 15)
 максимально увеличить это количество любым можно только на 6 камней. 15+6=21, а это меньше 25. т.о. второй игрок выиграть этим ходом не может никак.
 минимально увеличить камни можно удвоив первую кучу, тогда в ней станет 8 камней, и следующий (первый) игрок удваивает ее до 16 и выигрывает 

Так как язык не указан, приведу пример на SWI-Prolog.

Код:

read_int(Int) :- read(Int), integer(Int).split_int_by_numbers(0, []) :- !.split_int_by_numbers(N, [Number|Ints]) :- Number is mod(N, 10), RestN is div(N, 10), split_int_by_numbers(RestN, Ints).test_to_div(_, []).test_to_div(N, [Number|Ints]) :- mod(N, Number) =:= 0, test_to_div(N, Ints). test(Int) :- split_int_by_numbers(Int, Numbers), test_to_div(Int, Numbers), write(Int), write(" - Yes!"), nl.test(Int) :- write(Int), write(" - No!"), nl.?- read_int(Int), test(Int).