home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
World of Shareware - Software Farm 2
/
wosw_2.zip
/
wosw_2
/
QBAS
/
QBPACKET.ZIP
/
PRIME2.BAS
< prev
next >
Wrap
BASIC Source File
|
1991-10-09
|
410b
|
19 lines
REM PRIME NUMBER FINDER II (PRIME2.BAS)
CLS
N = 1
DO UNTIL N = 0
PRINT
INPUT "Enter a positive interger, 0 to exit"; N
FOR I = 2 TO N - 1
IF N MOD I = 0 THEN
PRINT N; "is not a prime"
PRINT " because it's divisible by"; I
EXIT FOR
ELSEIF I = N - 1 THEN PRINT N; "is a prime"
END IF
NEXT I
IF N = 2 THEN PRINT N; "is a prime"
LOOP
END