test4.txt

来自「pl0文法编译器」· 文本 代码 · 共 41 行

const true = 1, false = 0;
var x,y,m,n,pf:integer;
procedure prime;
	var i,f:integer;
	procedure mod;
	begin
		x := x-x/y*y;
	end;
begin
	f:=true;
	i:=3;
	while i<m do
		begin
			x:=m;
			y:=i;
			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);
	if n>=2 then
	begin
		write(" ",2);
		if n=2 then pf := true;
		m := 3;
		while m <= n do
			begin
				prime;
				m := m+2
			end;
	end;
	if pf=false then write(" ",0)
end.