100以内的8对孪生质数是多少?(写下数)Pascal语言
问答/395℃/2024-05-17 09:44:50
优质解答:
var
i,k:integer;
function f(n:integer):boolean;
var
x,y:integer;
begin
f:=false;
for x:=1 to n div 2 do
if n mod x=0 then exit;
f:=true;
end;
begin
for i:=2 to 100 do
if f(i)and f(i+2) then
writeln(i,' ',i+2);
end.
答案:
3 5
5 7
11 13
17 19
29 31
41 43
59 61
71 73