Напечатать в возрастающем порядке все трехзначные числа, в десятичной записи которых нет одинаковых цифр

@ANAKONDA27 · Регистрация: 28.01.2013

напечатать в возрастающем порядке все трехзначные числа, в десятичной записи которых нет одинаковых цифр. На VBA

@Казанский · 28.01.2013, 13:27

Visual Basic

Sub bb()
Dim i&, j&, k&, c&
For i = 1 To 9
    For j = 0 To 9
        If j <> i Then
            For k = 0 To 9
                If k <> i And k <> j Then Debug.Print i & j & k: c = c + 1
            Next
        End If
    Next
Next
Debug.Print "чисел:"; c
End Sub

@ANAKONDA27 · 28.01.2013, 13:42 **[ТС]**

Блин!!!! Огромное спасибо!!!!

@ANAKONDA27 0 / 0 / 0 Регистрация: 28.01.2013 Сообщений: 3
		1
	Напечатать в возрастающем порядке все трехзначные числа, в десятичной записи которых нет одинаковых цифр 28.01.2013, 13:17. Просмотров 1353. Ответов 2 Метки нет (Все метки) напечатать в возрастающем порядке все трехзначные числа, в десятичной записи которых нет одинаковых цифр. На VBA 0

@ANAKONDA27 0 / 0 / 0 Регистрация: 28.01.2013 Сообщений: 3
	28.01.2013, 13:42 [ТС]	3
	Блин!!!! Огромное спасибо!!!! 0

Опции темы

Напечатать в возрастающем порядке все трехзначные числа, в десятичной записи которых нет одинаковых цифр

Решение