Revision as of 22:19, 6 June 2022 (view source) DANILIN (talk \| contribs) m (→‎{{header\|Python}}) ← Older edit		Revision as of 21:00, 7 June 2022 (view source) DANILIN (talk \| contribs) m (→‎{{header\|QB64}}) Newer edit →
Line 551: =={{header\|QB64}}== <lang QB64>max=10001: n=1: p=0: st=1Timer ' PRIMES.bas russian DANILIN While n <= max ' 10001 104743 20.535 seconds f=0: j=2 ~~For~~While ~~j=2~~f To< ~~s^0.5~~1 If ~~s Mod~~ j >= p ^ 0.5 Then f=12 If p Mod j = 0 Then f=1 Next▼ If ~~f=0~~ ~~Then~~ n j=nj+1 ~~s=s+1~~Wend If f <> 1 Then n=n+1: ' Print n, p ▲ ~~Next~~p=p+1 Wend Print n-1, sp-1, Timer-t</lang> {{out}} <pre>10001 104743 20.535 seconds</pre> =={{header\|QB64}}==

10001th prime: Difference between revisions

10001th prime (view source)