Exercice VB: le nombre Armstrong
Travail à Faire :
Ecrire le code en VB qui permet de :
- Donner le nombre Armstrong
Un nombre nombre d'Armstrong est un entier naturel n non nul qui est égal à la somme des puissancesp-ièmes de ses chiffres en base dix, où p désigne le nombre de chiffres de n .
Exemple :
- Tous les entiers de 1 à 9 sont narcissiques.
- Les vingt premiers termes de la suite des 88 nombres narcissiques sont :
1, 2, 3, 4, 5, 6, 7, 8, 9, 153, 370, 371, 407, 1634, 8208, 9474, 54748, 92727, 93084, 548834.
- 153 = 13 + 53 + 33
- 548834 = 56 + 46 + 86 + 86 + 36 + 46
123456789101112131415161718192021222324252627 | Module armstrong Sub Main() Dim A, B, C, cube, nb As Integer Console.WriteLine("saisir un nombre") A = Console.ReadLine Console.WriteLine("saisir un autre nombre") B = Console.ReadLine Console.WriteLine("saisir un autre nombre") C = Console.ReadLine For A = 0 To 9 For B = 0 To 9 For C = 0 To 9 nb = A * 100 + B * 10 + C cube = A * A * A + B * B * B + C * C * C If nb = cube Then Console.WriteLine("le nombre armstrong est =" & nb) Else Console.WriteLine("rettaper un autre nombre") End If Next Next Next Console.ReadLine() End Sub End Module |