//PascalABC.NET 3.2, старой версии нет, не могу проверить
begin
var a: BigInteger := 1;
for var i := 1 to ReadInteger do
a *= i;
write(a)
end.
1) выполняется & : 9&26; 9=1001 (2cc) 26=16+8+2=11010 (2cc)
11010 &
01001
------------
01000 - результат побитовой 9&26 (лог умножение)
2) 15=1111 (2cc)
1111 |
1000
---------------
1111 - результат первой | (ИЛИ - лог сложение)
3) 12=8+4=1100 (2сс)
1111 |
1100
-------------
1111 - результат второй |
4) 29=16+8+4+1=11101 (2cc)
11101 ^
01111
----------------- результат ^
10010 =2^4+2^1 =16+2=18 ответ 18
Оператор условия.
Если (действие, утверждение), то.... иначе....
Так как цифры в шифре должны быть различны, то количество вариантов определяется по формуле A(n,k) = n!/(n-k)! = 9!/(9-3)! = 7*8*9 = 504