diff options
Diffstat (limited to 'others/volume1/046.pas')
-rw-r--r-- | others/volume1/046.pas | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/others/volume1/046.pas b/others/volume1/046.pas new file mode 100644 index 0000000..146ba7a --- /dev/null +++ b/others/volume1/046.pas @@ -0,0 +1,16 @@ +var + n, i, j: int16; + +begin + readln(n); + for i := 0 to n - 1 do + begin + if i mod 2 = 0 then + for j := 1 to n do + write(i * n + j, ' ') + else + for j := n downto 1 do + write(i * n + j, ' '); + writeln + end +end. |