Exercice VB: le nombre Armstrong

Travail à Faire :

Ecrire le code en VB qui permet de :

  1. 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
123456789101112131415161718192021222324252627Module 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
Article publié le 01 Janvier 2012