home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1998 May / Pcwk5b98.iso / Borland / Cplus45 / BC45 / TPROFEXM.PAK / PRIME5.C < prev    next >
C/C++ Source or Header  |  1995-08-29  |  572b  |  30 lines
  1. /* Copyright (c) 1990, 1992, Borland International */
  2.  
  3. #include <conio.h>
  4.  
  5. int prime(int n)
  6. {
  7.         int i;
  8.  
  9.         if (n % 2 == 0)
  10.                 return (n==2);
  11.         if (n % 3 == 0)
  12.                 return (n==3);
  13.         if (n % 5 == 0)
  14.                 return (n==5);
  15.         for (i=7; i*i <= n; i+=2)
  16.                 if (n % i == 0)
  17.                         return 0;
  18.         return 1;
  19. }
  20.  
  21. void main(void)
  22. {
  23.         int i, n;
  24.  
  25.         n = 1000;
  26.         for (i=2; i<=n; i++)
  27.                 if (prime(i))
  28.             cprintf("%d ", i);
  29. }
  30.