Data commit

Task/Primality-by-trial-division/Delphi/primality-by-trial-division-1.delphi

@@ -0,0 +1,18 @@
+function IsPrime(aNumber: Integer): Boolean;
+var
+  I: Integer;
+begin
+  Result:= True;
+  if(aNumber = 2) then Exit;
+
+  Result:= not ((aNumber mod 2 = 0)  or
+                (aNumber <= 1));
+  if not Result then Exit;
+
+  for I:=3 to Trunc(Sqrt(aNumber)) do
+  if(aNumber mod I = 0) then
+  begin
+    Result:= False;
+    Break;
+  end;
+end;

Task/Primality-by-trial-division/Delphi/primality-by-trial-division-2.delphi

@@ -0,0 +1,15 @@
+function IsPrime(const x: integer): Boolean;
+var
+  i: integer;
+begin
+  i := 2;
+  repeat
+    if X mod i = 0 then
+    begin
+      Result := False;
+      Exit;
+    end;
+    Inc(i);
+  until i > Sqrt(x);
+  Result := True;
+end;