Найти все трехзначные простые числа ( большее 1, не имеющее других делителей, кроме 1 и самого себя) Вложенный цикл

[Кристина Н]

Найти все трехзначные простые числа ( большее 1, не имеющее других делителей, кроме 1 и самого себя) Вложенный цикл

[VIK_aka_TOR]

var
mass: array [1..168] of integer;
index_prost, index, chislo,i: integer;
begin
mass[1]:=2;
index_prost := 1;
chislo:=3;
while (chislo < 1000) do
begin
     index:=0;
   for i:=1 to index_prost do
   begin
       if ( (chislo mod mass[i]) = 0) then
            break
          else inc(index);
       if (index = index_prost) then
          begin
             inc(index_prost);
             mass[index_prost]:=chislo;
          end;
   end;
   inc(chislo);
end;
for i:=1 to index_prost do
if (mass[i] > 100) then   // вывод только тех которые больше 100, то бишь из 3 цифр
writeln(mass[i]);
end.

[veniside]

Эратосфен такие задачки ещё в 200 году д.н.э. решал )

http://ideone.com/4GaYz

[TinMan]

Сообщение от veniside

Эратосфен такие задачки ещё в 200 году д.н.э. решал )

Но он же без вложенного цикла..

[veniside]

возможно, для больших таблиц, ему помогали ученики, которых можно отнести к вложенным циклам. Так что не факт )

[evg_m]

Но он же без вложенного цикла..

Решето Эратосфена это вложенные циклы
удаление всех чисел кратных числу k (один цикл)
для всех значений K (второй цикл).
конечно у не было несколько оптимизировано (предварительная проверка необходимости внутреннего цикла) если k не является простым числом

[TinMan]

Сообщение от evg_m

Решето Эратосфена это вложенные циклы

Сдаюсь!
Согласен ). А еще у него были массивы, косвенная аресация, кэш-память, предсказание ветвлений, и он никогда не юзал goto - даже если очень хотелось.. И вообще, он был очень умный мужик )). Нам с ним тут не тягаться. И чего мы тут ваще, трепыхаемся, если Эратосфен все уже сделал..

[Кристина Н]

мне очень нужно через вложенный цикл... решите пожалуйста, буду очень благодарна!!!!

[Mad_Cat]

мне очень нужно через вложенный цикл... решите пожалуйста, буду очень благодарна!!!!

Пост№2 чем не устроил? Там вложенный!

[Кристина Н]

без массива нужно