А ребусы кто-то умеет разгадывать?

Я решил решить данный ребус методом тупого перебора.

Только решил не сам все варианты проверять, а поручил это дело компьютеру.

Задал переменные:

К - x

И - y

С - z

Ввёл программу:

Dim x As Integer, y As Integer, z As Integer

Private Sub Command1_Click()

For z = 0 To 9

For y = 0 To 9

For x = 0 To 9

If x * 100 + y * 10 + z + x * 100 + z * 10 + y = y * 100 + z * 10 + x Then Print "к="; x; " и="; y; " с="; z

Next x

Next y

Next z

End Sub

Запустил программу.

Программа просчитала все возможные 1000 вариантов меньше, чем за секунду.

Ответов два:

1) К=0 И=0 С=0

2) К=4 И=9 С=5

Скриншот ответа программы:

Но так как буквам соответствуют разные числа, то первый вариант не рассматриваем. С помощью данной программы можно решать и другие подобные ребусы с трёхзначными числами, нужно только поменять условие внутри цикла.