# Процедура проверки

Процедура проверки имеет вид: procedure Check; (* SetS, BestS, NumS, MaxS, M - глобальные *) var i,j :integer; begin SetS:=[]; for i:=1 to N do for j:=1 to N-1 do SetS:=Sets+[Q[i,j]]; SetS:=SetS+[Q[1,N]]; i:=M; while i in SetS do Inc(i); if i&gt;MaxS then begin NumS:=1; BestS[NumS]:=S; MaxS:=i;(* на единицу больше действительной длины *) end else if i=MaxS then begin Inc(NumS); BestS[NumS]:=S; end; end; Общая схема уточнена. Но если довести ее до программы, то решение, например, для исходных данных n=6, m=1, k=1 за реальное время не будет получено. Необходимо сокращать перебор, искать эвристики, позволяющие сделать это. 1-я эвристика. Пусть у нас есть (n-1) сектор, в которые записаны числа, образующие последовательность m, m+1, ... . количество сумм (арифметическая прогрессия) равно n*(n-1)div2, т. е. это количество различных чисел, получаемое из чисел в заполненных n-1 секторе. Обозначим через X первое число из последовательности m, m+1,

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