delphi怎么判断一个数是否为素数

Question

delphi 怎么判断一个数是否为素数

Answer 1

function PrimeNumber(Source: Integer): boolean;var i: Integer;begin Result := True; for i := 2 to Source - 1 do if Source mod i = 0 then begin Result := False; Break; end;end;