aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data update

Browse source
This commit is contained in:
Ingy döt Net 2025-02-27 18:35:13 -05:00
parent 8e4e15fa56
commit 72eb4943cb
1853 changed files with 35514 additions and 9441 deletions
Download patch file Download diff file Expand all files Collapse all files

14
Task/Catalan-numbers-Pascals-triangle/PascalABC.NET/catalan-numbers-pascals-triangle.pas Normal file
View file

@ -0,0 +1,14 @@
const
n = 15;
begin
var t: array[0..n + 1] of integer;
t[1] := 1;
for var i := 1 to n do
begin
for var j := i downto 1 do t[j] += t[j - 1];
t[i + 1] := t[i];
for var j := i + 1 downto 1 do t[j] += t[j - 1];
print(t[i + 1] - t[i]);
end;
end.