Talk:Theodore Roosevelt vs Winston Churchill/@comment-93.61.34.79-20170313094857

Module Module1

Sub Main

Dim N, cont, A As Integer

Do

Console.WriteLine("inserisci il numero!")

N = Console.ReadLine

cont = 2

A = 0

Do While cont < N And A <> 1

If (N Mod cont) = 0 Then

A = 1

End If

cont = cont + 1

Loop

If A = 1 Then

Console.WriteLine("numero non primo")

Else

Console.WriteLine("numero primo")

End If

Console.ReadLine

Loop

End Sub

End Module