|
|
вернуться в форумWA 4 Help!! var i,j,n:word; a:array[1..100] of word; begin readln(n); a[1]:=1; for i:=2 to n do a[i]:=a[i-1]+i-1; for j:=n downto 1 do begin for i:=n downto 1 do write(a[i]:3); for i:=1 to n-1 do a[i]:=a[i+1]+1; a[n]:=a[n]+j; writeln; end; end. |
|
|