Prime triplets: Difference between revisions
Added PL/0
m (fixed where I messed up) |
(Added PL/0) |
||
Line 809:
</pre>
=={{header|PL/0}}==
PL/0 can only output 1 numeric value per line (and doesn't handle character data at all), so to avoid confusing output, only the first prime of each triplet is shown here.
<syntaxhighlight lang="pascal">
var n, a, prime;
procedure isnprime;
var p;
begin
prime := 1;
if n < 2 then prime := 0;
if n > 2 then begin
prime := 0;
if odd( n ) then prime := 1;
p := 3;
while p * p <= n * prime do begin
if n - ( ( n / p ) * p ) = 0 then prime := 0;
p := p + 2;
end
end
end;
begin
a := 1;
while a < 5495 do begin
a := a + 2;
n := a;
call isnprime;
if prime = 1 then begin
n := a + 2;
call isnprime;
if prime = 1 then begin
n := a + 6;
call isnprime;
if prime = 1 then ! a
end
end
end
end.
</syntaxhighlight>
{{out}}
<pre>
5
11
17
41
101
107
191
227
311
347
461
641
821
857
881
1091
1277
1301
1427
1481
1487
1607
1871
1997
2081
2237
2267
2657
2687
3251
3461
3527
3671
3917
4001
4127
4517
4637
4787
4931
4967
5231
5477
</pre>
=={{header|Python}}==
| |||