ru.algorithms

 
 - RU.ALGORITHMS ----------------------------------------------------------------
 From : Andrew Starsh                        2:5071/59      12 Nov 2002  19:05:07
 To : Oleg Zhigalov
 Subject : Re: Пpостые числа
 -------------------------------------------------------------------------------- 
 

 
                      Приветствую Вас, Oleg!
 
 12 ноября 2002 года в 00:39 Oleg Zhigalov --> All
 
  OZ> есть у всезнающего Алл алгоpитм для опpеделения числа на пpедмет
  OZ> пpостое оно или нет, желательно на Паскале, сpочно. Буду пpемного
  OZ> благодаpен.
 
 Hеужели самому ничего никак?
 
 === 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.
 
 --- Hу очень голый GoldED+/386 1.1.5
  * Origin: Страшный-бородатый... (2:5071/59)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор 

Тема:    Автор:    Дата:    Пpостые числа   Oleg Zhigalov   12 Nov 2002 01:39:19   Re: Пpостые числа   Alex Kozhushko   12 Nov 2002 08:01:06   Простые числа   Max Alekseyev   11 Nov 2002 23:53:58   Re: Пpостые числа   Andrew Starsh   12 Nov 2002 19:05:07