alatest5.pas

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

program manGAURA;
var a:array[1..20,1..20] of integer;
    n,i,j,k:integer;

function prim(x:integer):boolean;
 var i:integer;
begin
prim:=true;
for i:=2 to trunc(sqrt(x))  do
 if x mod i=0 then prim:=false;
end;

begin
write('n=');
readln(n);
k:=2;
for i:=1 to n do
begin
j:=1;
repeat
begin
if prim(k) then begin
                a[i,j]:=k;
                inc(j);
                inc(k);
                end
            else inc(k);
end;
until j=n+1;
end;
for i:=1 to n do  begin
                  writeln;
                  writeln;
                  for j:=1 to n do write(a[i,j]:5);
                  end;
writeln;
end.