# простоты считаем

простоты считаем ее такой). Схема процедуры уточнения сумм: procedure AddSum(t,number :byte); (* Q, Sq - глобальные переменные *) var z,i,j :integer; begin Q[t,1]:=number; for i:=1 to n do begin if t-i+1&gt;1 then z:=t-i+1 else z:=2; for j:=z to n-1 do begin Q[i,j]:=0; Q[i,j]:=Q[i,j-1]+Q[Sq[i,j],1]; end; end; Q[1,n]:=Q[1,5] + Q[n,1]; end; Следующее уточнение. &quot;Выполнить проверку последовательности сумм&quot;. Из чего следует исходить? Во-первых, наилучшая последовательность сумм может получиться не из одного варианта заполнения секторов числами. Поэтому необходимо ввести структуру данных - двумерный массив - для их хранения и, соответственно, указатель числа записанных вариантов: , где type SView = array[1..nMax] of byte; NumS :byte; Во-вторых, для хранения наибольшего числа необходима переменная MaxS. В-третьих, значения сумм лучше представить множественным типом данных SetS :set of byte. Это упростит логику поиска последовательности.

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