Fast and furiously add others/volume1

1 files changed, 34 insertions, 0 deletions

diff --git a/others/volume1/009.pas b/others/volume1/009.pas
new file mode 100644
index 0000000..67f57b1
--- /dev/null
+++ b/others/volume1/009.pas
@@ -0,0 +1,34 @@
+var
+  n, i, tmp: longint;
+  a: array of longint;
+
+begin
+  readln(n);
+  if n > 1 then
+    setlength(a, trunc(sqrt(n * 2 + 2.25) - 1.5))
+  else
+    setlength(a, 1);
+  tmp := 0;
+  for i := 0 to length(a) - 2 do
+    begin
+      a[i] := i + 2;
+      inc(tmp, a[i])
+    end;
+  a[length(a) - 1] := n - tmp;
+
+  if length(a) > 1 then
+    while a[length(a) - 1] - a[length(a) - 2] > 2 do
+      for i := length(a) - 1 downto 1 do
+        begin
+          tmp := (a[i] - 1 - a[i - 1]) div 2;
+          if tmp > 0 then
+            begin
+              dec(a[i], tmp);
+              inc(a[i - 1], tmp)
+            end
+        end;
+
+  for i in a do
+    write(i, ' ');
+  writeln
+end.