Составить метод решения ребуса МУХА + МУХА + МУХА = СЛОН

Составить алгоритм решения ребуса МУХА + МУХА + МУХА = СЛОН (разные буковкы обозначают разные числа, старшая не 0).

Может кто объяснить решение
var m,u,h,a,s,l,o,n: integer;
begin
for m:=1 to 9 do
for s:=1 to 9 do
for u:=0 to 9 do
for h:=0 to 9 do
for a:=0 to 9 do
for l:=0 to 9 do
for o:=0 to 9 do
for n:=0 to 9 do
if (((m*1000)+(u*100)+(h*10)+a)*3=(s*1000)+(l*100)+(o*10)+n)
and ((mlt;gt;u) and (mlt;gt;h) and (mlt;gt;a) and (mlt;gt;s) and (mlt;gt;l) and (mlt;gt;o) and (mlt;gt;n)
and (ult;gt;h) and (ult;gt;a) and (ult;gt;s) and (ult;gt;l) and (ult;gt;o) and (ult;gt;n)
and (hlt;gt;a) and (hlt;gt;s) and (hlt;gt;l) and (hlt;gt;o) and (hlt;gt;n)
and (alt;gt;s) and (alt;gt;l) and (alt;gt;o) and (alt;gt;n)
and (slt;gt;l) and (slt;gt;o) and (slt;gt;n)
and (llt;gt;o) and (llt;gt;n) and (olt;gt;n))
then writeln(m,u,h,a,'+',m,u,h,a,'+',m,u,h,a,'=',s,l,o,n);
end.

Задать свой вопрос
1 ответ
Программка состоит из 8-ми вложенных циклов. Смысл которых прост - перебрать все варианты значений букв m,u,h,a,s,l,o,n. Т.е. последовательно каждой буковкам m,u,h,a,s,l,o,n присваивается значение от 0 до 9.

Снутри этого цикла делается проверка 2-ух критерий:
1. Исполнение МУХА+МУХА+МУХА+СЛОН
2. Чтоб значение букв не совпадало. 

Как только эти два условия выполняются на экран выводится значение букв. 

P.S. Программку можно упростить. 
Левшанкова Алиса
если не тяжело, упростите, пожалуйста, буду очень благодарен
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт