不是VIP会员,不能显示答案

题目解答

题目:
孪生素数是指两个相差为2的素数,例如:3和5,5和7,11和13等。
下面的程序可输15对孪生素数,其中函F判断整数A是否为素数。
      program p(output);
      var
      k,n:integer;
function f(a:integer):boolean;
var
        k:integer;
        flag:boolean;
begin
         flag:= true ;
         k:=2;
         while(k〈=a div 2〉 and flag do
            if a mod k=0 then
             flag:=false
            else
                k:=k+1;
            f:=flag;
        end;
begin
n:=0;
k:=2;
repeat
if   f(k)and f(k+2) then
begin
       n:=n+1;
writeln(k,k+2)
end;
k:=k+1
until   n=15
end.
考点:
分析:
解答:
评论:
老师: