У меня есть прога Решето Эратосфера ( есть числа, кот делятся только на1 и на себя, ета прога их находит)
Program Resheto_Eratosfera;
const
N =100;
type
SetOfNumber = set of 1..N;
var
n1, next : word;
BeginSet, PrimerSet : SetOfNumber;
i:integer;
begin
 BeginSet := [1..N];
 next :=2;
 while  BeginSet <> [] do
  begin
   n1:=next;
    while n1<=N do
    begin
     BeginSet := BeginSet - [n1];
     n1:=n1+next;
   end;
  PrimerSet :=  PrimerSet + [next];
  repeat
   inc(next);
  until (next in BeginSet) or (next<N);
  end;
 for i :=1 to N do
  if i in PrimerSet then writeln (i,'';
end.
Но она чё-то не фурычит, в чём дело не знаю

Какой-то страшный код :\
я делал проще...есть массив чисел...
Далее есть цикл, от числа-1 до 2
и если при делении на I, которая уменьшается за каждый цикл на 1, остатка не отсается - то число делится не только на себя...( возможно там сделано тоже саоме, но уж как-то слишком наворочено...и без всяких set of)

Обычно алгоритм решето Эратосфера должен быстро работать, а
Далее есть цикл, от числа-1 до 2
и если при делении на I, которая уменьшается за каждый цикл на 1, остатка не отсается - то число делится не только на себя...( возможно там сделано тоже саоме, но уж как-то слишком наворочено...и без всяких set of)
скорее всего будет тормозить.

Алгоритм училка дала год назад, всё вот с ним е..усь (просто нет слов...)


Считается, что есть конечное такое число, кот делится только на себя и на 1. Я хотел бы попробовать найти его, поможете?

Извините, если я не в тему... Вам простое ли число надо найти? Если да то можно идти от корня из числа до 2.