Autore Topic: Calcolare se un numero è "perfetto"  (Letto 152 volte)

Offline vuott

  • Moderatore globale
  • Senatore Gambero
  • *****
  • Post: 11.179
  • Ne mors quidem nos iunget
    • Mostra profilo
Calcolare se un numero è "perfetto"
« il: 11 Maggio 2017, 21:00:52 »
Un possibile codice per verificare se un numero è "perfetto".

Codice: [Seleziona]
Fast

Public Sub Main()

  Dim num, dv, som As Long
 
    num = 33550336
   
    For dv = 1 To num - 1
      If 0 == (num Mod dv) Then
        Print " i divisori sono: "; dv
        som += dv
      Endif
    Next
   
    If num == som Then
      Print "Il numero "; num; " è perfetto !"
    Else
      Print "Il numero "; num; " non è perfetto !"
    Endif

End
« Chiunque, non ricorrendo lo stato di necessità, nel proprio progetto Gambas fa uso delle istruzioni Shell o Exec, è punito con la sanzione pecuniaria da euro 20,00 a euro 60,00. »