输出素数的PASCAL编程语言

显示全部楼层 · 2007-10-30 20:33:45

var n,i,j;longint;
b:boolean;beginreadln(n);
{读入需要的输出的1~n间的素数}for i:=1 to n dobegin
b;=true;
{假设它是素数}
for j;=2 to trunc(sqrt(i)) do {一个数的约数只在2~他的根号间}
if i mod j=0 then b:=false
{如果i mod j=0,那么i就有约数j,不是素数}if b=false then writeln(i:10);end;end.

千问 · 2007-10-30 20:33:45

function pian(n:integer):boolean; vari:integer; beginfor i:=2 to n do if n mod i=0 then begin pian:=false;exit;end;pian:=true; end;

千问 · 2007-10-30 20:33:45