作业帮PASCAL完全素数问题
来源：学生作业帮 编辑：作业帮 分类：综合作业 时间：2024/11/06 03:43:52
PASCAL完全素数问题
如果一个三位的素数除以100的余数是素数,并且它的第一位也是素数,那么这个数就叫完全素数,例如113
求所有的完全素数
我编的程序
VAR
a:set of 1..999;
qw:array [1..42] of integer;
x,y,z,i,j:integer;
PROCEDURE xo;
VAR
i,j:integer;
BEGIN
FOR i:=1 TO 42 do
if y=qw[i]
then begin
write (x);
inc (j);
if j mod 5=0
then writeln end;
END;
BEGIN
x:=2;
a:=[2..999];
i:=1;
REPEAT
WHILE not(x in a) DO BEGIN
x:=x+1
END;
j:=x;
IF (x>10) AND (x100 THEN begin
z:=x mod 10;
IF (z mod 20) and (z1)
then begin
y:=x mod 100;
xo end end;
WHILE j
如果一个三位的素数除以100的余数是素数,并且它的第一位也是素数,那么这个数就叫完全素数,例如113
求所有的完全素数
我编的程序
VAR
a:set of 1..999;
qw:array [1..42] of integer;
x,y,z,i,j:integer;
PROCEDURE xo;
VAR
i,j:integer;
BEGIN
FOR i:=1 TO 42 do
if y=qw[i]
then begin
write (x);
inc (j);
if j mod 5=0
then writeln end;
END;
BEGIN
x:=2;
a:=[2..999];
i:=1;
REPEAT
WHILE not(x in a) DO BEGIN
x:=x+1
END;
j:=x;
IF (x>10) AND (x100 THEN begin
z:=x mod 10;
IF (z mod 20) and (z1)
then begin
y:=x mod 100;
xo end end;
WHILE j
集合的上限是255个,你那样肯定不能运行