robool1.pas

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

program roboolean;
var k,p,i,n,j :integer;
    ok:boolean;
begin
write('k=');readln(k);
write('p=');readln(p);
i:=p;
n:=0;
repeat
ok:=true;
for j:= 2 to trunc(sqrt(i)) do
    if i mod j=0 then ok:=false;
    if ok then begin
               write(i,' ');
               n:=n+1;
               end;
i:=i+1;
until n=k;
end.