Gambas-it

Gambas3 => Programmazione => Topic aperto da: vuott - 11 Maggio 2017, 21:00:52

Titolo: Calcolare se un numero è "perfetto"
Inserito da: vuott - 11 Maggio 2017, 21:00:52

Un possibile codice per verificare se un numero è "perfetto (https://it.wikipedia.org/wiki/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