Question

составить алгоритм решения ребуса кот + кот = ток (разлИчные буквы обозначают различные цифры, старшая — не 0). лучше все если на VBA

Answer 1

Во вложении - файл с рабочей книгой MS Excel-2003. Не забудьте разрешить выполнение макросов и проекты с отсутствующей цифровой подписью.
Если все же захочется попробовать решить ребус КОТ+КОТ=ТОК, замените правую часть оператора присваивания для n1 выражением из правой части оператора присваивания для n2.

bb36c95a441c71002715f0cc2b403b0a.xls

Answer 2

в нем)Sub khblh()
Dim K As Byte
Dim O As Byte
Dim T As Byte
Dim a As Integer
Dim b As Integer
For K = 1 To 9
For O = 0 To 9
For T = 1 To 9
a = 100 * K + 10 * O + T
b = 100 * T + 10 * O + K
If 2 * a = b Then
MsgBox "otvet: " & a & " + " & a & " = " & b
End If
Next T
Next O
Next K
End Sub