с информатика Два игрока, Петя и Ваня, играют в следующую игру. Перед игроками лежат две кучи камней.

Игроки ходят по очереди, первый ход делает Петя. За один ход игрок может

а) добавить в одну из куч (по своему выбору) два камня или

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

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

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

Задание 1. Для каждой из начальных позиций (10, 32), (11, 31) укажите, кто из игроков имеет

выигрышную стратегию.

Задание 2. Для каждой из начальных позиций (10, 31), (11,30), (12,30) укажите, кто из

игроков имеет выигрышную стратегию.

Задание 3. Для начальной позиции (10,29) укажите, кто из игроков имеет выигрышную

стратегию. Постройте дерево всех партий, возможных при указанной выигрышной стратегии.​

я выбирал задания у которых больше всего .

надеюсь тебе это решение

1

var i:integer;

begin

for i:=2 to 100 do

if(i mod 2 = 0) then writeln(i);

end

2

Var

a: Real;

i,n: Integer;

Begin

Writeln

a:=0

for i:=1 to n do

a:= a + sgr(i);

end

Writeln

Readln

end.

6

Var

N1, N2, M, i: Longint

Begin

Write( Wwedite N1= `)

ReadLn (N2)

if (N1=0) and (N2=0) then writeLn;

if N1>N2 then M:= N1 else M:= N2;

i:=M -1;

Repeat

Inc(i);

Until ((i mod N1)=0) and ((i mod N2)=0);

WriteLn ;

end.

12.

program N99210889

const n=10

s: longint = 1

var i: byte;

begin

s: = s+ Term;

Term: = Term×2

end

writeln(s)

readln

end.

я выбирал задания у которых больше всего .

надеюсь тебе это решение

1

var i:integer;

begin

for i:=2 to 100 do

if(i mod 2 = 0) then writeln(i);

end

2

Var

a: Real;

i,n: Integer;

Begin

Writeln

a:=0

for i:=1 to n do

a:= a + sgr(i);

end

Writeln

Readln

end.

6

Var

N1, N2, M, i: Longint

Begin

Write( Wwedite N1= `)

ReadLn (N2)

if (N1=0) and (N2=0) then writeLn;

if N1>N2 then M:= N1 else M:= N2;

i:=M -1;

Repeat

Inc(i);

Until ((i mod N1)=0) and ((i mod N2)=0);

WriteLn ;

end.

12.

program N99210889

const n=10

s: longint = 1

var i: byte;

begin

s: = s+ Term;

Term: = Term×2

end

writeln(s)

readln

end.