Два игрока, Петя и Ваня, играют в следующую игру. Перед игроками лежат две кучи камней. Игроки ходят по очереди, первый ход делает Петя. За один ход игрок может убрать
из одной из куч один камень или уменьшить количество камней в куче в два раза (если
количество камней в куче нечётно, остаётся на 1 камень больше, чем убирается).
Например, пусть в одной куче 6, а в другой 9 камней; такую позицию мы будем обозначать
(6, 9). За один ход из позиции (6, 9) можно получить любую из четырёх позиций: (5, 9), (3, 9),
(6, 8), (6, 5).
Игра завершается в тот момент, когда суммарное количество камней в кучах становится
не более 20. Победителем считается игрок, сделавший последний ход, то есть первым
получивший позицию, в которой в кучах будет 20 или меньше камней.
В начальный момент в первой куче было 10 камней, во второй куче — S камней, S > 10.
Будем говорить, что игрок имеет выигрышную стратегию, если он может выиграть при
любых ходах противника. Описать стратегию игрока — значит, описать, какой ход он
должен сделать в любой ситуации, которая ему может встретиться при различной игре
противника. В описание выигрышной стратегии не следует включать ходы играющего по
ней игрока, которые не являются для него безусловно выигрышными, т.е не гарантирующие
выигрыш независимо от игры противника.

Найдите максимальное(!) значение S, при котором одновременно выполняются два
условия:
— у Вани есть выигрышная стратегия, позволяющая ему выиграть первым или вторым ходом
при любой игре Пети;
— у Вани нет стратегии, которая позволит ему гарантированно выиграть первым ходом.

program mas;

var

 massive: array[0..1000] of integer;

 n, i: integer;

begin

 massive[0] := 2;

 write('Введите количество элементов массива: ');

 read(n);

 for i := 0 to n - 1 do

 begin

   write(massive[i], ' ');

   massive[i + 1] := massive[i] + 2;

 end;

end.

Объяснение:

Максимальный размер массива - 1001 элемент.

program mas;  // Название программы

var

 massive: array[0..1000] of integer;  // Целочисленный массив

 n, i: integer;  // Переменные, отвечающие за количество чисел в массиве и счётчик.

begin  // Начало программы

 massive[0] := 2;  // Первое значение массива = 2

 write('Введите количество элементов массива: ');  // Вывод сообщения в консоль

 read(n);  // Считываем значение переменной n с клавиатуры

 for i := 0 to n - 1 do  // Идём от 0 до n - 1 индекса (n - 1, т. к. идём с нулевого индекса)

 begin  // Начало цикла

   write(massive[i], ' ');  // Вывод значения массива с индексом i

   massive[i + 1] := massive[i] + 2;  // Следующий элемент массива = текущий элемент массива + 2

 end;  // Конец цикла

end. // Конец программы

1) 0100100001100001011100000111000001111001001000000100001001101001011100100111010001101000011001000110000101111001001000000111010001101111001000000111100101101111011101010010000100100001

486170707920426972746864617920746f20796f752121

2) 010001000110111100100000011110010110111101110101001000000111001101110000011001010110000101101011001000000101001001110101011100110111001101101001011000010110111000111111

446f20796f7520737065616b205275737369616e3f

3) 010010000110111101110111001000000110000101110010011001010010000001111001011011110111010100100000011101000110111101100100011000010111100100111111

486f772061726520796f7520746f6461793f

4) 010100000110000101110011011100110111011101101111011100100110010000101110

50617373776f72642e