Два игрока, Петя и Ваня, играют в следующую игру. Перед игроками лежат две кучи камней. Игроки ходят по очереди, первый ход делает Петя. За один ход игрок может а) добавить в одну из куч (по своему выбору) один камень или

б) увеличить количество камней в куче в три раза.

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

Задание 2. Для каждой из начальных позиций (5, 12), (7,12), (8, 11) укажите, кто из игроков имеет выигрышную стратегию.

Проблема нет вот код:

Program raketa;

uses graph;

var gd,gm:integer;

begin

detectgraph (gd,gm);

initgraph (gd,gm,'C:\tp7 ');

line (300,60,240,120);

line (240,120,240,360);

line (360,120,360,360);

line (240,360,360,360);

line (300,60,360,120);

line (240,210,210,240);

line (210,240,240,240);

line (360,210,390,240);

line (390,240,360,240);

circle (300,150,15);

circle (300,210,15);

circle (300,270,15);

Bar (270,300,240,360);

line (240,360,180,450);

line (180,450,420,450);

line (420,450,360,360);

line (330,450,330,370);

line (300,450,300,365);

line (270,450,270,370);

line (240,330,180,330);

line (180,330,90,450);

line (172,330,80,445);

line (300,60,300,30);

readln

end.

Объяснение:

результат

Только такая другой нет

Const
  n = 11;

var
  x: array[1..n] of integer;
  i, k, d, s: integer;

begin
  Randomize;
  Writeln('Элементы массива');
  k := 0; s := 0;
  for i := 1 to n do
  begin
    d := Random(11) - 5;
    Write(d:3);
    if (i mod 2) = 0 then begin { четное место }
      if d = 1 then Inc(k);
      x[i] := d
    end
    else begin
      if d < 0 then s := s + d;
      x[i] := sqr(d)
    end
  end;
  Writeln;
  Writeln('Результирующий массив');
  for i := 1 to n do Write(x[i]:3);
  Writeln;
  Writeln('Количество единиц на четных местах равно ', k);
  Writeln('Сумма отрицательных элементов на нечетных местах равна ', s)
end.

Тестовое решение:
Элементы массива
 -3  0 -5  1  5  1 -3 -4  5 -3 -2
Результирующий массив
  9  0 25  1 25  1  9 -4 25 -3  4
Количество единиц на четных местах равно 2
Сумма отрицательных элементов на нечетных местах равна -13