Data commit

Task/Prime-decomposition/Delphi/prime-decomposition.delphi

@@ -0,0 +1,54 @@
+program Prime_decomposition;
+
+{$APPTYPE CONSOLE}
+
+uses
+  System.SysUtils;
+
+function IsPrime(n: UInt64): Boolean;
+var
+  i: Integer;
+begin
+  if n <= 1 then
+    exit(False);
+
+  i := 2;
+  while i < Sqrt(n) do
+  begin
+    if n mod i = 0 then
+      exit(False);
+    inc(i);
+  end;
+
+  Result := True;
+end;
+
+function GetPrimes(n: UInt64): TArray<UInt64>;
+var
+  i: Integer;
+begin
+  while n > 1 do
+  begin
+    i := 1;
+    while True do
+    begin
+      if IsPrime(i) then
+      begin
+        if n / i = (round(n / i)) then
+        begin
+          n := n div i;
+          SetLength(Result, Length(Result) + 1);
+          Result[High(Result)] := i;
+          Break;
+        end;
+      end;
+      inc(i);
+    end;
+  end;
+end;
+
+begin
+  for var v in GetPrimes(12) do
+    write(v, ' ');
+  readln;
+end.