<u>PascalABC.NET 3.3.5, сборка 1648 от 31.03.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var (x,y):=ReadReal2('x,y=');
Writeln((Sin(x)+cos(y))/(Cos(x)-Sin(y))*Tan(x*y))
end.
У меня такие рисунки занимают примерно 1,65-1,82 кб
Побеждает первый игрок. Например, первым ходом он увеличивает количество камней во второй куче в три раза
(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
var
s: string;
begin
readln(s);
writeln(s[3], s[7], s[9]);
<span>end.</span>
Вообще-то надо брать log(по основанию 2 заданного числа) и округлять до большего целого. Но проще смотреть на степени числа 2:
а) 2^6=64<65, значит надо 7 бит
б) 2^8=256 -8 бит (ровно)
в) 2^15=32768 -15 бит
г) 2^12=4096>4095 12бит достаточно
д) 2^16=65536 -16 бит
е) 2^21=2097152 мало, значит надо 22 бита