PASCAL完全素数问题如果一个三位的素数除以100的余数是素数,并且它的第一位也是素数,那么这个数就叫完全素数,例如113求所有的完全素数我编的程序VARa:set of 1..999;qw:array [1..42] of integer;x,y,z,i,
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/14 16:25:34
![PASCAL完全素数问题如果一个三位的素数除以100的余数是素数,并且它的第一位也是素数,那么这个数就叫完全素数,例如113求所有的完全素数我编的程序VARa:set of 1..999;qw:array [1..42] of integer;x,y,z,i,](/uploads/image/z/4948586-26-6.jpg?t=PASCAL%E5%AE%8C%E5%85%A8%E7%B4%A0%E6%95%B0%E9%97%AE%E9%A2%98%E5%A6%82%E6%9E%9C%E4%B8%80%E4%B8%AA%E4%B8%89%E4%BD%8D%E7%9A%84%E7%B4%A0%E6%95%B0%E9%99%A4%E4%BB%A5100%E7%9A%84%E4%BD%99%E6%95%B0%E6%98%AF%E7%B4%A0%E6%95%B0%2C%E5%B9%B6%E4%B8%94%E5%AE%83%E7%9A%84%E7%AC%AC%E4%B8%80%E4%BD%8D%E4%B9%9F%E6%98%AF%E7%B4%A0%E6%95%B0%2C%E9%82%A3%E4%B9%88%E8%BF%99%E4%B8%AA%E6%95%B0%E5%B0%B1%E5%8F%AB%E5%AE%8C%E5%85%A8%E7%B4%A0%E6%95%B0%2C%E4%BE%8B%E5%A6%82113%E6%B1%82%E6%89%80%E6%9C%89%E7%9A%84%E5%AE%8C%E5%85%A8%E7%B4%A0%E6%95%B0%E6%88%91%E7%BC%96%E7%9A%84%E7%A8%8B%E5%BA%8FVARa%3Aset+of+1..999%3Bqw%3Aarray+%5B1..42%5D+of+integer%3Bx%2Cy%2Cz%2Ci%2C)
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个,你那样肯定不能运行