# множество как вершины

множество как вершины графа, то необходимо найти гамильтонов цикл с ограничениями, приведенными в функции Can. При этом мы должны уметь выяснять для любой точки с номером k возможность построения из нее очередной стороны многоугольника. о96_3 Достаточно известная задача. Обычно решается для небольших значений N. Пусть N=2, тогда следующая простая логика дает количество счастливых четырехзначных чисел в интервале от 0000 до 9999. ... cnt:=0; for i:=0 to 9 do for j:=0 to 9 do for l:=0 to 9 do for k:=0 to 9 do if i+j-l-k=0 then inc(cnt); ... Как сделать ее независимой от значения N? Может быть, так: Function Rec(k,Sum:integer):comp; var i:integer;Ans:longint; begin if k=2*N+1 then if Sum=0 then Rec:=1{достигли конца числа и сумма цифр равна нулю - число счастливое} else Rec:=0 else begin Ans:=0; for i:=0 to 9 do if k&lt;=N then Ans:=Ans+Rec(k+1,Sum+i) else if i&lt;=Sum then Ans:=Ans+Rec(k+1,Sum-i); Rec:=Ans; end; end; Красивая реализация,

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