//PascalABC.NET
//В задаче есть ограничение по времени в 1 секунду
//поэтому была использована функция milliseconds
//которая возвращает кол-во миллисекунд с момента
//начала работы программы
var
N, cur, count: uint64;
begin
read(N);
cur := 1;
count := 0;
while (cur <> 0) and (milliseconds() / 1000 < 0.78) do
begin
cur := (cur * 10 + 1) mod N;
count := count + 1;
end;
if (cur = 0) then write('1' * (count = 1 ? count : count + 1))
else write('NO');
end.