PASCAL完全素数问题如果一个三位的素数除以100的余数是素数,并且它的第一位也是素数,那么这个数就叫完全素数,例如113求所有的完全素数我编的程序VARa:set of 1..999;qw:array [1..42] of integer;x,y,z,i,
来源:学生作业帮助网 编辑:作业帮 时间:2024/11/29 12:19:59
PASCAL完全素数问题如果一个三位的素数除以100的余数是素数,并且它的第一位也是素数,那么这个数就叫完全素数,例如113求所有的完全素数我编的程序VARa:set of 1..999;qw:array [1..42] of integer;x,y,z,i,
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
PASCAL完全素数问题如果一个三位的素数除以100的余数是素数,并且它的第一位也是素数,那么这个数就叫完全素数,例如113求所有的完全素数我编的程序VARa:set of 1..999;qw:array [1..42] of integer;x,y,z,i,
集合的上限是255个,你那样肯定不能运行