catanedelcu

RE:  numerele sunt 679 si 688 si combinatiile cu cifrele respective adica : 697, 769,796,967,976 respectiv 868,886 cu produsele consecutive 378-168-48-32-6   si   384-96-54-20-0   . am facut un VB in excell care e asta si afiseaza toti pasii pt. toate numerele:


Sub Button2_Click()
For nr = 100 To 999
rand = nr - 98
a = Int(nr / 100)
b = Int((nr - a * 100) / 10)
c = nr - a * 100 - b * 10

Sheet1.Cells(rand, 3) = nr
Sheet1.Cells(rand, 5) = a
Sheet1.Cells(rand, 6) = b
Sheet1.Cells(rand, 7) = c

pas = 1
prod = a * b * c
While prod > 99
Sheet1.Cells(rand, 8 + pas) = prod
  prod = a * b * c
  a = Int(prod / 100)
  b = Int((prod - a * 100) / 10)
  c = prod - a * 100 - b * 10
pas = pas + 1

Wend
 
While prod > 9
  Sheet1.Cells(rand, 8 + pas) = prod
  a = Int(prod / 10)
  b = prod - a * 10
prod = a * b
pas = pas + 1

Wend
If prod <= 9 Then
  Sheet1.Cells(rand, 8 + pas) = prod
End If

Next nr