Как проверить является ли случайно введеное число простым?!

Здравствуйте, Аноним, Вы писали:

А>Как проверить является ли случайно введеное число простым?!

НЕМНОГО НИЖЕ

Автор: flyker
Дата: 11.04.02

Здравствуйте, <Аноним>, Вы писали:

А>Как проверить является ли случайно введеное число простым?!

Посмотри здесь

А если на практике!!!
Интересуют не большие числа до 2000...
вот например 1033 известно что это число простое а как это запрограммировать алгоритмически чтобы программа выдавала что это простое?!

Здравствуйте, <Аноним>, Вы писали:

А>А если на практике!!!
А>Интересуют не большие числа до 2000...
А>вот например 1033 известно что это число простое а как это запрограммировать алгоритмически чтобы программа выдавала что это простое?!

Ну если число (N) небольшое, то самый простой алгорим — это попытка разделить на все простые числа из интервала числа [2..Sqrt(N)]. Если производительность не интересует вообще — разделить на ВСЕ числа из этого интервала . Например так (Delphi):

function IsPrime(N: Integer): Boolean;
var
  I: Integer;
begin
  Result := TRUE;
    for I := 2 to Trunc(Sqrt(N)) do
      if N mod I <> 0
        then begin
        Result := FALSE;
      Break;
        end;
end;

С уважением Михаил Копачев