diff options
Diffstat (limited to 'others/volume1/012.pas')
-rw-r--r-- | others/volume1/012.pas | 28 |
1 files changed, 28 insertions, 0 deletions
diff --git a/others/volume1/012.pas b/others/volume1/012.pas new file mode 100644 index 0000000..79a91ee --- /dev/null +++ b/others/volume1/012.pas @@ -0,0 +1,28 @@ +var + n, i, j: shortint; + pas_tri, pas_tri_old: array of int64; + +begin + readln(n); + setlength(pas_tri_old, n + 1); + pas_tri_old[0] := 1; + pas_tri_old[1] := 0; + setlength(pas_tri, n + 1); + pas_tri[0] := 1; + for i := 1 to n do + pas_tri[i] := 0; + writeln(1); + for i := 1 to n do + begin + write('1 '); + for j := 1 to i - 1 do + begin + pas_tri[j] := pas_tri_old[j] + pas_tri_old[j - 1]; + write(pas_tri[j], ' ') + end; + pas_tri[i] := 1; + writeln(1); + for j := 0 to n do + pas_tri_old[j] := pas_tri[j] + end +end. |