nr_pr_ro.pas

来自「This ar the basic programs that i did in」· PAS 代码 · 共 17 行

program nr_prim;
var a,b,i,j,d :integer;
begin
write('a=');readln(a);
write('b=');readln(b);
for i:=a to b do
   begin
   d:=0;
   for j:=2 to trunc(sqrt(i)) do
       if i mod j =0 then d:=d+1;
       if d=0 then write('i=',i);
   end;
readln;
end.