Сто первых простых чисел(Pascal)

[<Slavs>]

Народ, подскажите! Какое мне поставить условия, чтобы на екран выводило сто первых простых чисел( простые числа – ето те, которие деляться тоько на 1 и на сами себя(включая 2), тоисть 4 – не подходит, так как оно делиться на 2; 9 – тож не катит так как делиться на 3 и т.д.)

uses crt;
 var n,i:integer;
begin
n:=0;
writeln('Сто первых простых чисел : ');
 for i:=1 to 1000 do
begin
 if (i mod 2 <> 0)or(i=2) then
  begin
  if (i<>1) then
   begin
    write(i:3);
    n:=n+1;
    if (i mod 33=0)or(i mod 67=0)or(i mod 99=0)or(i mod 131=0) then
    writeln;
    n:=n+1;
   end;
  end;
 if n>=100 then break;
end;
end.

[Inv1s]

Есть более простой алгоритм для нахождения простых чисел.
массив из 100 чисел от 1 до 100.
Затем проходишь и если число не просто из всего массива вычеркиваешь его с его шагом.
То есть дойдя до 4 числа, проходишь от него до конца и каждый 4 элемент удаляешь.
Затем к следующему числу и меняя шаг удаляешь элементы.

[Katus]

можно, чтобы меньши пямяти занимать, создать максимальный по ращмерности массив логического типа, и если не подходит, то F иначе T... потом проходим массив и если True то ответом будет индекс этой ячейки массива.

по поводу первых 100 простых чисел - ставим счетчик типа byte, обнуляем и проходим конечные значения ячеек массива лог типа и если True то увеличиваем на 1 =) прекрашаем цикл когда счетчик элементов равен 100.

Также счетчик простых чисел можно использовать как индекс 100 элементного массива со значениями простых чисел

[Адастран]

Привет ребят, дайте решение на "C", заранее спасибо)

[Stilet]

Пожалуйста: http://www.programmersforum.ru/showp...6&postcount=38