Question

Дано натуральное число n.Выяснить , является ли оно простым .Определить функцию,позволяющую распознавать простые числа.

Answer 1

function prime(n:longint):boolean;
var i,j:longint;
p:boolean;
Begin
p:=true;
if (n mod 2)=0 then p=false;
i:=3;j:=round(sqrt(n));
while (i<=j)and(p) do
Begin
if(n mod i)=0 then p=false;
inc(i,2);
end;
prime:=p;
end;