pastebin

Paste Search Dynamic
Recent pastes
Public Shared Sub Main()
  1.  
  2. Imports system
  3.  
  4. public class Test
  5.         public Shared Sub Main()
  6.                 for x as Integer = 1 to 100
  7.                         Dim count as Integer = 0
  8.                         for pembagi as Integer = 1 To x
  9.                                 if x mod pembagi = 0 Then
  10.                                         count = count + 1
  11.                                 End if
  12.                         Next
  13.  
  14.                         if count = 2 Then
  15.                                 Console.Writeline (Cstr(x)+” adalah prima”)
  16.                         End if
  17.                 Next
  18.         End Sub
  19. End class
Parsed in 0.003 seconds