Exercice VB: le nombre Armstrong
Rédigé par GC Team, Publié le 01 Janvier 2012, Mise à jour le Mardi, 30 Novembre 1999 00:00Participez au vote ☆☆☆☆☆★★★★★
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
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 |
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 |