下载后可任意编辑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 ...

时间:2024-12-03 07:34栏目:行业资料