Он должен знать т<span>ехнические </span><span>характеристики квартиры.
Длину, ширину, высоту, объем.
Так-же должен знать информацию о том, как работать с инструментами или другими вещами, которые будут применяться во время ремонта.
Человеку помогает Графическая информация(Чертежы, схемы, рисунки)</span>
//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.
4^3=64
т.к. 4 вида флагов - это основание, а количество флагов 3 - это степень
===== PascalABC.NET =====
begin
var n := ReadInteger('n=');
var a := ArrRandom(n, 10, 99); // для одинаковых позиций вывода
a.Println;
// элементы, кратные трем, упорядочить по убыванию
// прочие оставить на своих местах
var v := a.Select((v, i) -> (v, i))
.Where(t -> t[0] mod 3 = 0)
.OrderByDescending(t -> t[0])
.ToArray;
var w := v.Select(t -> t[1]).Sorted.ToArray;
for var i := 0 to w.High do
a[w[i]] := v[i][0];
a.Println
end.