03/04/25 11:12
エラトステネスのふるい、集合型バージョン。こんなんでできました。
コンパイル・コマンド: gpc --standard-pascal --setlimit=65536 -o primenumber primenumber.p
program primenumber(input, output);
const
n = 65535;
var
prime : set of 0..n;
i : integer;
j : integer;
begin
prime := [0..n];
for i := 2 to n do
if prime >= [i] then
begin
j := i + i;
while j <= n do
begin
prime := prime - [j];
j := j + i;
end
end;
for i := 2 to n do
begin
if prime >= [i] then
writeln(i);
end
end.