# будет массив St

будет массив St (St:array[1..n*(n-1) div 2] of byte. Количество не нулевых элементов в St - значение переменной Count. Эти величины описываются в разделе переменных процедуры solve, их инициализация - в процедуре init_solve.Процедуру поиска эйлерова цикла сделаем рекурсивной, поэтому первый вызов изменится - eiler_way(1). Выбор начальной вершины при поиске эйлерова цикла не имеет значения. Итак, классическая логика поиска эйлерова цикла. Приводится с целью показа работы процедуры komm_way, ибо последняя не есть поиск гамильтонова цикла в обычной трактовке. procedure eiler_way(v:byte); var j:integer; begin for j:=1 to N do if b[v,j] then begin b[v,j]:=false;b[j,v]:=false;eiler_way(j);end; inc(count);St[count]:=v;{заносим номер вершины в эйлеров цикл} end; procedure komm_way; var s:set of 1..Nmax; i,j:integer; begin i:=0;s:=[]; for j:=1 to Count do{исключаем повторяющиеся номера вершин из эйлерова цикла} if Not(St[j] in s) then begin inc(i);way[i]:=St[j];s:=s+[St[j]]; end;

Индекс
Элементарные функции Линейные уравнения Нелинейные уравнения Случайные числа