//PascalABC.NET 3.2, старой версии нет, не могу проверить
begin
var a: BigInteger := 1;
for var i := 1 to ReadInteger do
a *= i;
write(a)
end.
225 в десятичной с.с=11100001 в двоичной с.с
Ответ: 4 (единицы).
1)переводчик лишнее
2)антивирусная программа лишнее