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