Разгадайте ребус ТУЧА + ТУЧА = ДОЖДЬ

    Sub Main()
        Dim tuca, dozdj As String
        Dim t, u, c, a, d, o, z, j As Integer
        For t = 1 To 9
            For u = 0 To 9
                For c = 0 To 9
                    For a = 0 To 9
                        For d = 1 To 9
                            For o = 0 To 9
                                For z = 0 To 9
                                    For j = 0 To 9
                                        Dim temp = New Integer() {t, u, c, a, d, o, z, j}
                                        If (t * 1000 + u * 100 + c * 10 + a) * 2 = d * 10000 + o * 1000 + z * 100 + d * 10 + j And temp.Distinct().Count() = 8 Then
                                            tuca = CStr(t) & CStr(u) & CStr(c) & CStr(a)
                                            dozdj = CStr(d) & CStr(o) & CStr(z) & CStr(d) & CStr(j)
                                            Console.WriteLine(tuca & " + " & tuca & " = " & dozdj)
                                        End If
                                    Next j
                                Next z
                            Next o
                        Next d
                    Next a
                Next c
            Next u
        Next t
        Console.Write("Finish")
        Console.Read()
    End Sub