Data commit

2023-07-01 11:58:00 -04:00 · 2023-07-01 11:58:00 -04:00 · cb5bb5e222
commit cb5bb5e222
parent 7387c8f97b
199093 changed files with 3378972 additions and 0 deletions
--- a/Task/Pascals-triangle/PureBasic/pascals-triangle.basic
+++ b/Task/Pascals-triangle/PureBasic/pascals-triangle.basic
@ -0,0 +1,17 @@
+Procedure pascaltriangle( n.i)
+
+  For i=  0 To  n
+       c = 1
+       For k=0 To i
+             Print(Str( c)+" ")
+         c = c * (i-k)/(k+1);
+        Next ;k
+    PrintN(" "); nächste zeile
+  Next ;i
+
+EndProcedure
+
+OpenConsole()
+Parameter.i = Val(ProgramParameter(0))
+pascaltriangle(Parameter);
+Input()