Да! может содержать вложенные каталоги
Делим число на 2 и выписываем остатки
860 = 430·2 + 0
430 = 215·2 + 0
215 = 107·2 + 1
107 = 53·2 + 1
53 = 26·2 + 1
26 = 13·2 + 0
13 = 6·2 + 1
6 = 3·2 + 0
3 = 1·2 + <span>1
</span>
//PascalABC.NET версия 3.4.2.1991 от 03.03.19
//Если программа не запускается, то обновите версию
const
m = 99;
var
n, s, d, i, j: integer;
A, B: Array[1..m] of integer;
begin
Randomize;
write('n = ');
readln(n);
for i := 1 to n do
begin
repeat
j := Random(n) + 1
until A[j] = 0;
A[j] := i;
end;
for i := 1 to n do
write(A[i]:3);
writeln;
end.