Форумы HiProg.com - MS ACCESS, VBA, VB

 

Ответить на сообщение

Вернуться к теме

Вы отвечаете на сообщение:

ник: Силblч
короче малая в 4м классе учится
задачу задали:

Число из трех различных цифр вычтено из числа, состоящего из тех же цифр, расположенных в обратном порядке. Результат состоит из тех же трех цифр, расположенных снова по-другому. Какие это числа?

малой на калькуляторе по шурику решил, пока папа классическим(хоть и извращенским) способом нашел результат :)

чисто поржать :)

Sub find_triad()
Dim col As New Collection
Dim i&, j&, a&, b&, c&, z&
On Error Resume Next
For i = 999 To 111 Step -1
    j = i - Val(StrReverse(i))
    If Val(j) > 99 And i > Val(StrReverse(i)) Then
        For a = 1 To 3
        For b = 1 To 3
        For c = 1 To 3
            If a <> b And b <> c And c <> a Then
                z = (Mid(CStr(j), a, 1) & Mid(CStr(j), b, 1) & Mid(CStr(j), c, 1)) * 1
                If z = i Or z = Val(StrReverse(i)) Then
                  col.Add i & "-" & StrReverse(i) & "=" & j, "x_" & i & "-" & StrReverse(i) & "=" & j
                End If
            End If
        Next c
        Next b
        Next a
    End If
Next i

For i = 1 To col.Count
    Debug.Print col(i)
Next i

End Sub


Ваше имя:

Пароль:
Цитировать: [quote][/quote] Код: [code][/code]
Жирный: [b][/b] Наклонный: [i][/i]
URL: [url][/url] 

Сообщение:

 Размер файла не более 50 Кбт. Большие файлы можно размещать на www.slil.ru

Прикрепить:

 

Для вставки смайлов в текст щелкните по значку.