xCinzia27

[Zetrix]

84 NO..non è numero primo!
84÷1 = 84
84÷2 = 42
84÷3 = 28
84÷4 = 21
84÷6 = 14
84÷7 = 12
84÷12 = 7
84÷14 = 6
84÷21 = 4
84÷28 = 3
84÷42 = 2
84÷84 = 1

 

[Zetrix]

Option Explicit
Sub Main
   Dim x,y
   Dim a(10),b(10)
   x = InputBox("Inserire numero")
   If Primo(x) Then
   Scrivi "" & x & " " & "" & "SI..è un numero primo!",1,1,5,3,5,5
   Else
   Scrivi "" & x & " " & "" & "NO..non è numero primo!",1,1,5,7,5,5
   End If
   '------------------------------
   For y = 1 To 89
      '-------------------------
      a(1) =(x/y)
      If Int(a(1)) =(x/y) Then
         Scrivi("" & x & "÷" & y & " = " &(a(1)) & " "),0,0,1,5,5
         Scrivi
      End If
   Next
End Sub