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

Question

Информатика

Матяша

20 июля, 10:56

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

+3

Ответы (1)

Знаете ответ?

Давыд · 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;