Cifra divide cifra

Kangourou della Matematica

Quanti sono i numeri (positivi) di tre cifre (significative) abc tali che a sia divisibile per b e b sia divisibile per c?

Osserva

1. La cifra a è diversa da zero perché è la prima cifra significativa, quindi a=1..9
2. La cifra b è diversa da zero perché deve dividere a, quindi b=1..9
3. La cifra c è diversa da zero perché deve dividere b, quindi c=1..9

TextWindow.Title="Kangourou 2013"
conta=0
For a=1 To 9
   For b=1 To 9
      For c=1 To 9
         resto_ab=Math.Remainder(a, b)
         resto_bc=Math.Remainder(b, c)
         If(resto_ab = 0) And (resto_bc = 0) Then 
            TextWindow.Write(a*100+b*10+c+" ")
            conta=conta+1
         EndIf
      EndFor 
   EndFor
   TextWindow.WriteLine("")
EndFor
TextWindow.WriteLine("")
TextWindow.WriteLine(conta)