then begin <преобраз


then begin <преобразование s и проверка ребуса>; 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). Только в этом случае задача имеет
Индекс
Элементарные функции    Линейные уравнения    Нелинейные уравнения    Случайные числа


Hosted by uCoz