naja ich rechne einfach von 3 - wurzel n alles durch (bzw jede ungerade).
Code:
function IsPrime3(Zahl : Cardinal) : Boolean;
var
i,grenze : Integer;
begin
if zahl > 1 then
Begin
if Zahl mod 2 = 0 then
begin
result := zahl = 2;
Exit;
end;
i := 3;
grenze := Trunc(sqrt(Zahl));
result := true;
while (i <= grenze) and Result do
begin
Result := Zahl mod i <> 0;
inc(i,2);
end;
end else result := false;
end;