Расшифровать ребус, полученный в результате замены одинаковых букв

[ZigaBr0]

Расшифровать ребус, полученный в результате замены одинаковых букв
одинаковыми цифрами. Найти также такие значения цифр, при которых сумма цифр в
результате окажется наибольшей.
ДЕНЬ*8=МЕСЯЦ

[Serge_Bliznykov]

заводи переменные D E N b M S A C
перебирай из в цикле (D от 1 до 9, E от 0 до 9, N от 0 до 9, b от 0 до 9)
в цикле бери только различные значения (разные буквы должны представлять разные цифры)

if (D<>E) and (D<>N) and (D<>b) and (E<>N) 
   and (E<>b) and (N<>b) then begin
denb := (D*1000+E*100+ N*10 + b);
mesac := denb * 8;

полученное число mesac должно быть
1) больше 10000
2) меньше 99999
3) вторая цифра числа должна быть равна переменной E
4) все цифры числа должны быть различны.

если условия выполнились, то ребус разгадан.

вторая часть задачи (Найти также такие значения цифр, при которых сумма цифр в результате окажется наибольшей) - это типичная задача поиска максимума.
изначально положи сумму цифр sumMax в 0 (очевидно, что такого быть не может)
потом находи сумму D+ E+ N+ b+ M+E+ S+ A+ C
и запоминай числа, дающие значение sumMax больше предыдущего значения (не забывай при этом запоминать
denb и mesac: Maxmesac := mesac; Maxdenb := denb;
всё. и вторая часть задачи решена.

Успехов!

[Аватар]

Было же уже, в феврале. До сих пор расшифровываешь?
http://programmersforum.ru/showthread.php?t=289537

ADD

4609*8=36872
4615*8=36920
4865*8=38920
4907*8=39256
4951*8=39608
4965*8=39720
5037*8=40296
5079*8=40632
5089*8=40712
5091*8=40728
5092*8=40736
5137*8=41096
5387*8=43096
9603*8=76824
9604*8=76832
9802*8=78416
9813*8=78504 - max