Помогите плз) Надобно написать программку на любом ПаскалеПрограммист на Северном полюсе

//PascalABC.NET

//В задачке есть ограничение по медли в 1 секунду

//потому была применена функция milliseconds

//которая отдаёт кол-во миллисекунд с момента

//начала работы программки

var

 N, cur, count: uint64;

begin

 read(N);

 cur := 1;

 count := 0;

 while (cur lt;gt; 0) and (milliseconds() / 1000 lt; 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.

Ответ:

Код дан в приложении.

Объяснение:

Поддерживать само число на паскале будет достаточно трудно без использования biginteger. Будем поддерживать k - количество единиц в нашем числе, и ans - остаток от деления нашего числа на N. Если он в какой-то момент вышел равен нулю, это значит, что мы отыскали число. В нем k единиц. Мы будем продолжать поиски 3 * 10 раз. Если так ничего и не отыскали - выводим NO.