?? prime.pl
字號:
const true=1,false=0;
var x,y,m,n,pf;
procedure prime;
var i,f;
procedure mod;
x:=x-x/y*y;
begin
f:=true;
i:= 3;
while i<m do
begin
x:=m;
y:=i;
call mod;
if x=0 then f:=false;
i:=i+2;
end;
if f=true then
begin
write(m);
pf:=true;
end;
end;
begin
pf:=false;
read(n);
while n>=2 do
begin
write(2);
if n=2 then pf:=true;
m:=3;
while m<=n do
begin
call prime;
m:=m+2;
end;
read(n);
end;
if pf = false then write(0);
end.
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -