下载后可任意编辑1、程序PROGRAM EX1;VAR n,i,j,k:integer;BEGIN write('Enter n : '); readln(n); for i:=1 to n do begin for j:=1 to n do begin if i>=j then k:=j else k:=i; write(k:4) end; writeln endEND
Enter n : 7输出：1 1 1 1 1 1 11 2 2 2 2 2 21 2 3 3 3 3 31 2 3 4 4 4 41 2 3 4 5 5 51 2 3 4 5 6 61 2 3 4 5 6 72、程序PROGRAM EX2;VAR n,i,j,k,mi,ma:integer;BEGIN write('Enter n :'); readln(n); for i:=1 to n do begin if i>=n+1-i then ma:=i else ma:=n+1-i; mi:=n+1-ma; k:=1; for j:=1 to n do begin write(k:4); if j=ma then k:=k-1; end; writeln end下载后可任意编辑END
Enter n : 7输出：1 1 1 1 1 1 11 2 2 2 2 2 11 2 3 3 3 2 11 2 3 4 3 2 11 2 3 3 3 2 11 2 2 2 2 2 11 1 1 1 1 1 13、程序PROGRAM EX3;VAR n,i,j,r,c,k,m:integer;BEGIN write('Enter n : '); readln(n); for i:=1 to n do begin for j:=1 to n do begin if
