1)100101,130,36,35,3A 2)111001,210,25,64,9E 3)101001,232,72,156,8B 4)100011,124,78,541,2D
Изначально есть три функции, включающие цвета.
yellow()
red()
green()
Делаем таймер под название time, а потом пишем подобное:
do {
if (time<10)
red();
if (time<10)
yellow();
if (time<10)
green();
}
Очевидно, что в условии задачи есть опечатка (вместо 27 коинов должно быть значение не меньше 117). Только в этом случае задача имеет решение. Рассмотрим случай, когда в третий раз Вася попытался снять 117 коинов.
Очевидно, что # и & - это самые большие цифры, то есть мы должны из 2000 вычесть (98Ω+89Ω). Можно здесь действовать подбором, начиная с 0, а можно начать и 7 (в этом случае результат получим быстрее). Если Ω=7, то находим 2000-(987+897)=116.
Таким образом Ω=7
===== PascalABC.NET =====
begin
var n := ReadInteger('n =');
var p := BigInteger.One;
for var i := 1 to n do
p *= i;
Writeln(n, '! = ', p)
end.