TURBO PASCAL

Q:> 2.3.3 Как проверить простое ли число?

A:> Вот функция (вполне подходит для не самых больших чисел):

function isPrime(X: word): boolean;
var
i: integer;
Begin
isPrime:=false;
for i:=2 to sqrt(x) do
if x mod i = 0 then Exit;
isPrime:=true;
End;

На первую страницу

(с)Все права защищены