robpg29.pas

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

program b99pg100;
var i,n,p,j:integer;
    v,w:array[1..100] of integer;
begin
write ('n=');readln(n);
p:=0;
for i:=1 to n do
                    begin
                    writeln;
                    for j:=1 to 2*i do
                                    begin
                                    p:=p+1;
                                    write(p,' ');
                                    end;
                    for j:=2*i downto 1 do
                                        begin
                                        p:=j-1;
                                        if p<>0 then write(p, ' ');
                                        end;
                    end;
writeln;
end.