Re: Пpостые числа

From

Andrew Starsh (2:5071/59)

To

Oleg Zhigalov

Date

2002-11-12T18:05:07Z

Area

RU.ALGORITHMS

                     Приветствую Вас, Oleg!

12 ноября 2002 года в 00:39 Oleg Zhigalov --> All

 OZ> есть у всезнающего Алл алгоpитм для опpеделения числа на пpедмет
 OZ> пpостое оно или нет, желательно на Паскале, сpочно. Буду пpемного
 OZ> благодаpен.

Неужели самому ничего никак?

=== Text:=New(pBufStream,Init('pros.pas',stOpenRead,1024)); ===
program faind;
uses crt;
var
  chisl,count:longint;
  flag:boolean;
BEGIN
  writeln('Выход - ввести единицу');
  chisl:=2;
  while chisl>1 do
  begin
    readln(chisl);
    if chisl>1 then
    begin
      count:=2;
      repeat
        if (chisl div count)*count=chisl then
        begin
          count:=chisl;
        end;
        if count=2 then
        begin
          count:=count+1;
        end
        else
        begin
          count:=count+2;
        end;
        flag:=count > (chisl div 2) + 1;
      until flag;
      end;
    if count>chisl then
    begin
      writeln('не простое');
    end
    else
    begin
      writeln('простое');
    end;
  end;
END.
=== Dispose(Text,Done); ===

                           С кучей пожеланий - Andrew.

--- Ну очень голый GoldED+/386 1.1.5
 * Origin: Страшный-бородатый... (2:5071/59)