Вовчик256
17.05.2020 00:07

1два игрока, петя и ваня, играют в следующую игру. перед игроками лежат две кучи камней. игроки ходят по очереди, первый ход делает петя. за один ход игрок может добавить в одну из куч (по своему выбору) один камень или увеличить количество камней в куче в два раза. игра завершается в тот момент, когда суммарное количество камней в кучах становится не менее 38. победителем считается игрок, сделавший последний ход, т.е. первым получивший такую позицию, что в кучах всего будет 38 камней или больше. 1. для каждой из начальных позиций (7, 15), (9, 14) укажите, кто из игроков имеет выигрышную стратегию. в каждом случае опишите выигрышную стратегию; объясните, почему эта стратегия ведёт к выигрышу, и укажите, какое наибольшее количество ходов может потребоваться победителю для выигрыша при этой стратегии. 2. для каждой из начальных позиций (7, 14), (8,14), (9, 13) укажите, кто из игроков имеет выигрышную стратегию. 3. для начальной позиции (8,13) укажите, кто из игроков имеет выигрышную стратегию. постройте дерево всех партий, возможных при указанной вами выигрышной стратегии. представьте дерево в виде рисунка или таблицы.

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
томкавеликая
08.09.2020 12:00
1)
begin
  var s1:=ReadlnString('Текст:');
  Writeln('k = ',s1.Where(c->Pos(c,'01')>0).Count);
  var s2:=s1.Select(c->c='0'?'A':c).Select(c->c='1'?'M':c);
  s2.Println;
end.

Пример:
Текст: Текст с 1 и 0: 110+101=1011
k = 12
Текст с M и A: MMA+MAM=MAMM

2)
var s1,s2:string;
i,k:integer;
begin
writeln('Введите текст:');
readln(s1);
k:=0;
s2:='';
for i:=1 to length(s1) do
 if s1[i]='0'
  then begin s2:=s2+'A'; k:=k+1; end
  else if s1[i]='1' then begin s2:=s2+'M'; k:=k+1; end else s2:=s2+s1[i];
writeln(s2);
writeln('k = ',k);
end.

Пример:
Введите текст:
Текст с 1 и 0: 110+101=1011
Текст с M и A: MMA+MAM=MAMM
k = 12
0,0(0 оценок)
Ответ:
FenrisYT
15.09.2021 06:43
Program zadacha;vara: array[1..1000] of integer;i,n,sum_pol,sum_otr: integer;beginwriteln('vvedite kol-vo elementov massiva');readln(n);for i:=1 to n do begina[i]:=random(1000)-500;write(a[i]:6);end;
sum_pol:=0;sum_otr:=0;for i:=1 to n do beginif a[i]>0 then sum_pol:=sum_pol+a[i];end;writeln();writeln('udvoennaya summa polojit. chisel = ', sum_pol*2);
for i:=1 to n do beginif (a[i]<0) and (i mod 2 <> 0) then sum_otr:=sum_otr+a[i];end;
writeln('summa otricat. i nechetn. chisel = ', sum_otr);end.
Дан одномерный массив, получить удвоенную сумму всех положительных членов массива и найти сумму чисе
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота