19 lines
305 B
Nim
19 lines
305 B
Nim
|
proc isSemiPrime(k: int): string =
|
||
|
|
var
|
||
|
|
i: int = 2
|
||
|
|
compte: int = 0
|
||
|
|
x: int = k
|
||
|
|
while i<=x and compte<3:
|
||
|
|
if (x mod i)==0:
|
||
|
|
x = x div i
|
||
|
|
compte += 1
|
||
|
|
else:
|
||
|
|
i += 1
|
||
|
|
if compte==2:
|
||
|
|
result = "is semi-prime"
|
||
|
|
else:
|
||
|
|
result = "isn't semi-prime"
|
||
|
|
|
||
|
|
for k in 1675..1680:
|
||
|
|
echo k," ",isSemiPrime(k)
|