Ребус написать программу для решения арифметического ребуса я + он + он + он + он + он + он + он + он = мы где различные буквы надо заменить на различные цифры. вывести количество различных решений для этого ребуса.

Во первых, прежде чем мы напишем программу, обратим внимание на тот факт, что буква о  равна 1, что существенно уменьшит количество переборов в цикле. запишем это выражение в виде: a+8*(10+n)=(10*m+y) у нас получилось 4 вложенных цикла: uses crt; var a, n, m, y: integer; begin   clrscr;   for a: =0 to 9 do       for n: =0 to 9 do           if (a< > n) then               for m: =1 to 9 do                   if (a< > m) and (n< > m) then                       for y : =0 to 9 do                           if (a< > y) and (n< > y) and (m< > y) then                                 if (a+8*(10+n)=10*m+y) then                                     begin                                         write('я=', a,'  ');                                         write('o=', 1,'  ');                                         write('н=', n,'  ');                                         write('m=', m,'  ');                                         write('ы=', y,'  ');                                         writeln;                                     end; readln; end. и всего 8 различных !

5 собака, лиса, лошадь, корова, волк