# then begin &lt;преобраз

then begin &lt;преобразование s и проверка ребуса&gt;; end else if Not (Nnew[str[k]] then begin s:=s+Num[str[k]]; rec(k+1,s); delete(s,k,1); end else if (str[k]=’+’) or (str[k]=’=’) then begin s:=s+str[k]; rec(k+1,s); delete(s,k,1); end else for i:=0 to 9 do if P[i] then begin Nnew[str[k]]:=false; Num[str[k]]:=Char(i); P[i]:=false; s:=s+Char(i); rec(k+1,s); delete(s,k,1); P[i]:=true; Nnew[str[k]]:=true; end; end; o98_1 В случаях, когда N нечетно или есть нули и их меньше половины, решение отсутствует. Если количество нулей больше половины, то ответ задачи 0. Итак, N четно и нулей нет. Отсортируем числа по неубыванию. Удобнее это сделать отдельно для отрицательных и положительных чисел. Рассмотрим пока случай только положительных чисел. Есть последовательность a1?a2?...?an-1?an. Необходимо вычислять произведения типа ai*an-i+1 (i=1,2,...,n div 2). Только в этом случае задача имеет

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