найди все 4 значные числа в записи которые входят только 8 и 3 которые делятся и на 2 и на 9

Question

Анютка · Accepted Answer

заставим Excel корпеть над задачей: 
Sub ppp() 
 Dim mm(2) 
 Cells.ClearContents 
 mm(1) = 3 
 mm(2) = 8 
 kk = 1 
 For ii1 = 1 To 2 
 For ii2 = 1 To 2 
 For ii3 = 1 To 2 
 For ii4 = 1 To 2 
 ss = mm(ii1) * 1000 + mm(ii2) * 100 + mm(ii3) * 10 + mm(ii4) 
 If ss Mod 18 = 0 Then 
 Cells(kk, 1) = ss 
 kk = kk + 1 
 End If 
 Next ii4 
 Next ii3 
 Next ii2 
 Next ii1 
End Sub 
и этот макрос выдаст: 
3888 
8388 
8838

Павел · Answer

Данные 4х значные числа могут кончатся только на 8, что бы делились на два и сумма цифр должна делится на 9, получим: 
3888, 8388, 8838.