Составить алгоритм решения ребуса кот + кот = ток (разлИчные буквы обозначают различные...

Question

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

Comments

Ваш ребус не имеет решения. Решение имеет ребус КТО+КОТ+ТОК

---

Описка...КТО+КОТ=ТОК

Answer 1

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

---

Скачать вложение Excel (XLS)

Comments

а я вот свой в ожидание делала, можете подсказать что не так?

---

в нем)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