Piprimes: Difference between revisions
Content added Content deleted
(add FreeBASIC) |
(add Fermat) |
||
| Line 50: | Line 50: | ||
20 20 21 21 21 21 21 21 |
20 20 21 21 21 21 21 21 |
||
</pre> |
</pre> |
||
=={{header|Fermat}}== |
|||
<lang fermat>n:=0; p:=0 |
|||
while n<22 do !n;!' ';p:=p+1;if Isprime(p)=1 then n:=n+1; fi; od</lang> |
|||
{{out}}<pre> |
|||
0 1 2 2 3 3 4 4 4 4 5 5 6 6 6 6 7 7 8 8 8 8 9 9 9 9 9 9 10 10 11 11 11 11 11 11 12 12 12 12 13 13 14 14 14 14 15 15 15 15 15 15 16 16 16 16 16 16 17 17 18 18 18 18 18 18 19 19 19 19 20 20 21 21 21 21 21 21</pre> |
|||
=={{header|FreeBASIC}}== |
=={{header|FreeBASIC}}== |
||