Реши + если = силен

[Smith68]

Помогите с задачей

РЕШИ
+
ЕСЛИ
---------
СИЛЕН

Помогите написать программу, с пояснениями.
Заранее благодарен

[VVitafresh]

Тебе что делать больше нечего? Или это в школе такие задачки задают?

[xqz_me]

А в чём задача? И причём тут VB?

[GAGArin]

На конкретную задачу я бы написал 6 вложенных циклов с перебором и одной проверкой. Прога ниочем.

[alibek]

Сформулируй нормально.

[Amed]

Известная головоломка же, alibek.

Каждой букве соответствует своя цифра. Надо найти соответствие к каждой букве, превращающее вышеуказанное в верное равенство.

[Smith68]

Вобщем это не мне, а сестре моей для института!
Задание изложено в точности как прислали из института! Помоите до завтра, Плиз!

[GAGArin]

Код: Выделить всё

For r = 1 To 9
For e = 1 To 9
For sh = 1 To 9
For i = 1 To 9
For l = 1 To 9
For n = 1 To 9
For s = 1 To 9
If 1000 * r + 100 * e + 10 * sh + i + 1000 * e + 100 * s + 10 * l + i = 10000 * s + 1000 * i + 100 * l + 10 * e + n Then
  MsgBox "R=" & r & " E=" & e & " Sh=" & sh & " I=" & i & " L=" & l & " N=" & n & " S=" & s
End If
Next s
Next n
Next l
Next i
Next sh
Next e
Next r


Это что нереал было самому написать?

[Amed]

Ноль допустúм.

[GSerg]

Угу... Причём Н - чётное, а И <> 0...

[Amed]

GAGArin, ты же понял, что надо еще добавить проверку на уникальность соответствия букв?
Сдается мне, что первое решение, выданное твоим кодом, не самое простое.

Кстати, как это решается классически, на бумажке? Решением соответствующей системы уравнений?

[GAGArin]

Ппц. Ага, можно дальше оптимизировать, можно считать "Н" сразу в цикле перебора "И" (а не только делать его четным) можно уменьшить число действий в несколько раз, можно сделать общий случай, можно!

Но мне этого делать не то что не хотелось, противно было. Я просто написал автору что задача детская и неинтересная (два раза)

Да на бумажке обычно решается системой уравнений и неравенств с ограниченным перебором.

ЗЫ Кстати просто интересно, в каком институте задают такое?