roat5.pas

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

var a:array[1..30,1..30] of longint;
    n,i,j,p,x:longint;
function prim( x:longint):boolean;
var i:longint;
    ok:boolean;
begin
ok:=true;
for i:=2 to trunc(sqrt(x)) do
   if (x mod i)=0 then ok:=false;
prim:=ok;
end;
begin
i:=1;
j:=1;
x:=1;
p:=0;
write('n=');readln(n);
for i:=1 to n do
    for j:=1 to n do  begin
                     repeat
                     inc(x);
                     until prim(x);
                     a[i,j]:=x;
                     end;
for i:=1 to n do
              begin
              for j:=1 to n do
                 write(a[i,j],' ');
                 writeln;
              end;
readln;
end.