Largest prime factor: Difference between revisions
add gwbasic
(Added Go) |
(add gwbasic) |
||
Line 5:
<br>What is the largest prime factor of the number 600851475143 ?
<br><br>
==={{header|FreeBASIC}}===
<lang freebasic>#include"isprime.bas"▼
dim as ulongint n = 600851475143, j = 3▼
while not isprime(n)▼
if n mod j = 0 then n/=j▼
j+=2▼
wend▼
print n</lang>▼
{{out}}<pre>6857</pre>▼
==={{header|GW-BASIC}}===
No primality testing is even required.
<lang gwbasic>10 N#=600851475143#
20 J#=3
30 IF J#=N# THEN GOTO 100
40 IF INT(N#/J#) = N#/J# THEN N# = N#/J#
50 J#=J#+2
60 GOTO 30
100 PRINT N#</lang>
{{output}}<pre>6857</pre>
=={{header|C}}==
Line 40 ⟶ 62:
od;
!!n;</lang>
▲{{out}}<pre>6857</pre>
▲=={{header|FreeBASIC}}==
▲<lang freebasic>#include"isprime.bas"
▲dim as ulongint n = 600851475143, j = 3
▲while not isprime(n)
▲ if n mod j = 0 then n/=j
▲ j+=2
▲wend
▲print n</lang>
{{out}}<pre>6857</pre>
|