Semiprime: Difference between revisions

==={{header|FreeBASIC}}===

<lang freebasic>function semiprime( n as uinteger ) as boolean

dim as uinteger a = 2, c = 0

while c < 3 andalso n > 1

if n mod a = 0 then

n /= a

c += 1

else

a += 1

end if

wend

if c = 2 then return true

return false

end function

for i as uinteger = 0 to 64

print i, semiprime(i)

next i</lang>

==={{header|GW-BASIC}}===

<lang gwbasic>10 INPUT "Enter a number: ", N

20 N=ABS(N)

30 C = 0

40 IF N < 3 THEN GOTO 80

50 F = 2

60 IF N MOD F = 0 THEN C = C + 1 : N = N / F ELSE F = F + 1

70 IF N > 1 THEN GOTO 60

80 IF C=2 THEN PRINT "It's a semiprime." ELSE PRINT "It is not a semiprime."</lang>

==={{header|Tiny BASIC}}===

<lang tinybasic> PRINT "Enter an integer"

INPUT N

IF N < 0 THEN LET N = -N

IF N < 2 THEN GOTO 20

LET C = 0

LET F = 2

10 IF (N/F)*F = N THEN GOTO 30

LET F = F + 1

IF F > N THEN GOTO 20

GOTO 10

20 IF C = 2 THEN PRINT "It is a semiprime."

IF C<> 2 THEN PRINT "It is not a semiprime."

END

30 LET C = C + 1

LET N = N / F

GOTO 10</lang>