User №848

    Я тебя не так понял, видимо. Теперь ясно. Я сделал иначе: Взял как край число, ближайшее меньшее разноциферное к в три раза меньшему, чем 9876 - последнего числа с различными цифрами в составе.

Оптимизировал выполнение с 10-15 секунд до доли секунды. Option Explicit Sub Rebus() Dim c As Integer Dim b As Integer Dim m As Integer, u As Integer, h As Integer, a As Integer, s As Integer, l As Integer, o As Integer, n As Integer Dim W As String W = "Числа: " + vbCrLf For c = 1023 To 3289 m = c 1000 u = (c 100) Mod 10 h = (c 10) Mod 10 a = c Mod 10 If (m <> u) And (m <> h) And (m <> a) And (u <> h) And (u <> a) And (h <> a) Then b = c * 3 s = b 1000 l = (b 100) Mod 10 o = (b 10) Mod 10 n = b Mod 10 If (s <> l) And (s <> o) And (s <> n) And (l <> o) And (l <> n) And (o <> n) Then If (m <> s) And (m <> l) And (m <> o) And (m <> n) And (u <> s) And (u <> l) And (u <> o) And (u <> n) And (h <> s) And (h <> l) And (h <> o) And (h <> n) And (a <> s) And (a <> l) And (a <> o) And (a <> n) Then If 3 * c = b Then W = W + "3*" + Str(c) + "=" + Str( + vbCrLf End If End If End If Next MsgBox W End Sub '2 =1 1=3 1 =4 2 = 3 2 = 4 3 = 4

Урсула, помоги оптимизировать: Option Explicit Sub Rebus() Dim c As Integer Dim b As Integer Dim m As Integer, u As Integer, h As Integer, a As Integer, s As Integer, l As Integer, o As Integer, n As Integer Dim W As String W = "Числа: " + vbCrLf For c = 1023 To 3289 m = c 1000 u = (c 100) Mod 10 h = (c 10) Mod 10 a = c Mod 10 If (m <> u) And (m <> h) And (m <> a) And (u <> h) And (u <> a) And (h <> a) Then For b = 1023 To 9876 Step 3 s = b 1000 l = (b 100) Mod 10 o = (b 10) Mod 10 n = b Mod 10 If (s <> l) And (s <> o) And (s <> n) And (l <> o) And (l <> n) And (o <> n) Then If (m <> s) And (m <> l) And (m <> o) And (m <> n) And (u <> s) And (u <> l) And (u <> o) And (u <> n) And (h <> s) And (h <> l) And (h <> o) And (h <> n) And (a <> s) And (a <> l) And (a <> o) And (a <> n) Then If 3 * c = b Then W = W + "3*" + Str(c) + "=" + Str( + vbCrLf End If End If Next End If Next MsgBox W End Sub '2 =1 1=3 1 =4 2 = 3 2 = 4 3 = 4 Я уже увеличил скорость выполнения. (выбрав для второго цикла шаг = 3) Всё-таки, можно ещё ускорить?

Для Редьки и его предположения по решению. <3

Ошибся ты. Их брать можно. Сканф, что у тебя с редактором?

Спидька. Реши задачу: Есть такое четырёхзначное число MUHA, умножив которое на 3, получим другое четырёхзначное число - SLON. M, U, H, A, S, L, O и N - все различные цифры. M и S - не нули.

&nbsp; У меня есть идеи, но это позже. Можно обойтись двумя переменными, но визуально будет ещё больше. Но ты всегда можешь решить сам. Будем мериться, у кого длинее.

&nbsp; &nbsp; На днях видел девушк с украинским паспоротом в больнице... Сулька решила задачку, таки: Option Explicit Sub Rebus() Dim c As Integer Dim b As Integer Dim m As Integer, u As Integer, h As Integer, a As Integer, s As Integer, l As Integer, o As Integer, n As Integer Dim W As String W = "Числа: " For c = 1023 To 3289 m = c 1000 u = (c 100) Mod 10 h = (c 10) Mod 10 a = c Mod 10 If (m <> u) And (m <> h) And (m <> a) And (u <> h) And (u <> a) And (h <> a) Then For b = 1023 To 9876 s = b 1000 l = (b 100) Mod 10 o = (b 10) Mod 10 n = b Mod 10 If (s <> l) And (s <> o) And (s <> n) And (l <> o) And (l <> n) And (o <> n) Then If (m <> s) And (m <> l) And (m <> o) And (m <> n) And (u <> s) And (u <> l) And (u <> o) And (u <> n) And (h <> s) And (h <> l) And (h <> o) And (h <> n) And (a <> s) And (a <> l) And (a <> o) And (a <> n) Then If 3 * c = b Then W = W + "3*" + Str(c) + "=" + Str( + vbCrLf End If End If Next End If Next MsgBox W End Sub '2 =1 1=3 1 =4 2 = 3 2 = 4 3 = 4

Оу, хеллоу. :>

Ну да, а я прям каждый день пишу.  Но мои знания таки совсем уж небольшие в этой области. Хотя скорость понимания и осваивания замедляется ленью, и только.

Ахтыж... Человек, гоняющийся за плюсиками? Плюсца тебе. ^v^

Мне бы такие креситики, чтобы записывать многослойные звуки или биты со всеми примочками. о_О

Вот с КОТ+КОТ=ТОК проще было Option Explicit Sub CatPlus() Dim a As Integer Dim b As Integer For a = 102 To 987 If (a 100 <> a 10) And (a 10 = 0) And (a 100 <> a Mod 10) Then For b = 102 To 987 If (b 100 = a Mod 10) And (b 10 = 0) And (a 100 <> b Mod 10) Then If 2 * a = b Then MsgBox Str(a) Next End If Next End SubОтвет: нет решений для этого ребуса

Я забыл указать, что написана на VBA.

Программа решения ребуса МУХА+МУХА+МУХА=СЛОН Версия два Добавлено 9 переменных, ибо автор замучался проверять Изменена скорость выполнения программы путем уменьшения диапазона поиска с (1023;9876) до (1023;3289) Option Explicit Sub Rebus() Dim c As Integer Dim b As Integer Dim m As Integer, u As Integer, h As Integer, a As Integer, s As Integer, l As Integer, o As Integer, n As Integer Dim W As String For c = 1023 To 3289 m = c 1000 u = (c 100) Mod 10 h = (c 10) Mod 10 a = c Mod 10 If (m <> u) And (m <> h) And (m <> a) And (u <> h) And (u <> a) And (h <> a) Then For b = 1023 To 3289 s = b 1000 l = (b 100) Mod 10 o = (b 10) Mod 10 n = b Mod 10 If (s <> l) And (s <> o) And (s <> n) And (l <> o) And (l <> n) And (o <> n) Then If (m = s) And (m = l) And (m = o) And (m = n) And (u = s) And (u = l) And (u = o) And (u = n) And (h = s) And (h = l) And (h = o) And (h = n) And (a = s) And (a = l) And (a = o) And (a = n) Then W = W Else: If 3 * c = b Then W = W + "3*" + Str(c) + "=" + Str( + ", " End If Next End If Next MsgBox W End Sub   '2 =1 1=3 1 =4 2 = 3 2 = 4 3 = 4 Очень интересно. Как второе число (b, после равно) она должна выводить только число, которое не имеет в составе одинаковых цифр. Лаал. Она делает всё с точностью до наоборот: ели в числе нет одинаковых- чисел, чертасдва она его тебе выведет.

Привет, сони.

Немного опоздал с голосованием, но оказался прав. Freedom Planet, лучшая, да. Среди игр типа синего ежа эта явно лучшая. Интересно получилось: игра вышла от фанатов, а не от Сежки. Проходить за Лайлак было очень интересно, сюжетные повороты хороши, персонажи достаточно живые. Хорошая озвучка и почти без багов. Давайте ещё одну такую ^-^

Гиффани убила всех программистов, кроме одного. Его она заставила записать себя на единственный диск и отнести в магазин. (один диск, чтобы она была единственной)Снова сюда организацию по стиранию памяти, не помню, как их там, Око Невидения? Ок.

Привет, Урсулечка. ^-^

Потому что это чертеж больше, чем рисунок. Хотя, некоторые черчением и занимаются.