Дано натуральное число n.Выяснить , является ли оно простым .Определить функцию,позволяющую распознавать простые числа.
Дано натуральное число n.Выяснить , является ли оно простым .Определить функцию,позволяющую распознавать простые числа.
Гость
Ответ(ы) на вопрос:
Гость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;
Не нашли ответ?
Похожие вопросы