купить есть выигрышная стратегия своим первым входом 5/5 камней и второй куртке после чего в каждой кучке становится поровну камней после этого возьмет несколько камней из какой-то кучки и петь сможешь взять столько же камней из другой кучки чтобы в кочках опять стало поровну камней рано или поздно Вася возьмет все камни с какой-то кучки тогда пейте возьмет все камни из оставшихся кочки и победит если есть три кучки в Одессе камней то первым входом Петя берёт все камни из какой-то корочки после чего действует Аналогично предыдущему случаю в этом случае у Васи есть выигрышная стратегия Будем считать что кошки пронумерованы если Петя взял несколько камней из кучки один-то Вася своим ходом берёт столько же камней и 2 кошечки Аналогично если Петя берёт несколько камней из из 2 kutikita Вася своим ходом берёт столько же камни из первой кучке тоже самое средней четвертыми кучками если своим ходом дети берут камни из одной них-то Вася после этого берёт столько же камней из другой нетрудно видеть что после каждого хода Васи в 1,2 пучках будет поровну камней и в-третьих в-четвёртых будет поровну камней А значит рано или поздно победит вася
Внимание! Если программа не работает, обновите версию!
begin
var (sn,pp,kp):=(0,1,0);
var n:integer;
repeat
Read(n);
if (n<0) and n.IsOdd then sn+=n
else
if (n>0) and (n mod 3=0) then begin pp*=n; kp+=1 end
until n=0;
if sn=0 then begin
Writeln('Нет отрицательных нечетных чисел');
if kp=0 then Writeln('Нет положительных чисел, кратных 3')
else Writeln('Произведение положительных чисел, кратных 3: ',pp)
end
else begin
Writeln('Сумма отрицательных нечетных чисел: ',sn);
if kp=0 then Writeln('Нет положительных чисел, кратных 3')
else Writeln('Произведение положительных чисел, кратных 3: ',pp)
end
end.
Пример
-367 23 62 7 12 -24 90 152 -63 0
Сумма отрицательных нечетных чисел: -430
Произведение положительных чисел, кратных 3: 1080