Привет Всем!
Кто нибудь может написать код нахождения 10000 простых чисел?
Спасибо!

тут уже была какая-то реализация этого алгоритма
попробуй поискать со словами: алгоритм, простые числа, решето Эратосфена...

Насколько, я помню.... Простое - это которое делится нацело только на себя и на 1, значит....


for cislo :=1 to 10 000 do begin
count := 0; //количество делителей нацело
for delit:= 1 to cislo do if int(cislo/delit)=cislo/delit then count:=count+1;
//есть и более умные способы проверить делимость нацело, но счас в голову не приходят...
if count<=2 then //действия по запоминанию этого числа, cislo заносится в массив, например....
end;

вот что-то такое....

Я чуть поправлю Maverick`a.

Вместо:
for delit:= 1 to cislo do if int(cislo/delit)=cislo/delit then count:=count+1;

Ставим:
for delit:= 1 to sqrt(cislo) do if int(cislo/delit)=cislo/delit then count:=count+1;

Такой алгоритм быстрее

Чоссс:
Во как нужно -->

for delit:= 1 to round(sqrt(cislo)) do if int(cislo/delit)=cislo/delit then count:=count+1;

Конечно алгоритм верный (round(sqrt(cislo))), но зачем делать лишнюю работу???