Ребус Delphi2010

[Василий01]

Очень важно.помогите пожалуйста
Написать программу для решения ребуса:
DREI+DREI+DREI=NEUN
(Delphi2010)
Заранее спасибо.

[Serge_Bliznykov]

в поиск сходите. на форуме были конкретные примеры решения.

[Abstraction]

Пример решения, для тестирования:
1578+1578+1578=4734

[Serge_Bliznykov]

Кстати, для данной задачи можно написать НЕУНИВЕРСАЛЬНЫЙ код.
Легко заметить, что:
1) все числа должны быть четырёхзначные (включая и результат)
2) все цифры в слагаемом различны
3) все три слагаемых полностью одинаковы (и ещё следствие, число-результат должно быть кратно трём)
4) третья цифра в слагаемом равна второй цифре в результате
5) в числе-результате первая и последняя цифры совпадают.

всё. достаточно написать перебор чисел, проверяя на соответствие указанным выше правилам.

p.s. кстати, я бы перебирал число результат: одно ведь должно быть кратно трём, это уже сразу в три раза сужает перебор.
первая и последняя цифра одинаковы, это значит всего примерно 300 вариантов чисел нужно будет перебрать.
Делим число на три, проверяем, что в полученном числе третья цифра такая же, как вторая в результирующем и что все числа в полученном частном отличаются. Если да, бинго - подходящий вариант найден!