Sub M110118_2210()
A = 0
Do While A < 9
A = A + 1
C = 0
Do While C < 9
C = C + 1
D = 99 * A - 99 * C
If D > 100 And InStr(Trim(D), Trim(A)) > 0 And InStr(Trim(D), Trim(C)) > 0 Then
Debug.Print A, C, D; 100 * A + 10 * 5 + C; 100 * C + 10 * 5 + A
End If
Loop
Loop
'''''''''''9''4'''''954 - 459=495
''''''''''''''''''НО КАК ЭТО РЕШИТЬ СРЕДСТВАМИ 5 КЛ
End Sub
|