для массива A заданы числа от 1 до 6, 1 символ = 2 байта, 6 * 2 = 12 байт.
Побеждает первый игрок. Например, первым ходом он увеличивает количество камней во второй куче в три раза
(1, 2) -> (1, 6)
Второй игрок может своим ходом получить пары куч (3, 6), (5, 6), (1, 10), (1, 18)
В любом из этих случаев первый игрок может выиграть следующим ходом
(3, 6) -> (3, 18), 3 + 18 >= 20
(5, 6) -> (5, 18), 5 + 18 >= 20
(1, 10) -> (1, 30), 1 + 30 >= 20
(1, 18) -> (1, 54), 1 + 54 >= 20
Код и результат выполнения на скриншотах.
// PascalABC.NET 3.3, сборка 1576 от 16.11.2017
// Внимание! Если программа не работает, обновите версию!
begin
for var i := 1 to 10 do
Writeln(i, ') y = ', sqrt(i));
end.
var a:array [1..10] of integer;
i,k1,k2:integer;
begin
for i:= 1 to 10 do
a[i]:= Random(81)+20;
writeln(a);
for i:=1 to 10 do
if a[i] mod 2 = 0 then k2:=k2+1
else k1:=k1+1;
writeln('Количество чётных элементов: ',k2);
writeln('Количество не чётных элементов: ',k1)
end.