Developing.ru

найти К-тое простое число в арифметической прогрессии:
11, 21, 31,41...

!!!!Простые числа- числа имеющие два делителя (1 и само число)
подробнее здесь: http://ru.wikipedia.org/wiki/Простое_число

Извените а нельзя ли поподробнее подогнать под мою задачку а то я что-то
не понял))

P.S. заранее спасибо

i:=1;
n:=0;
while n<k do
begin
if simple(i*10+1) then inc(n);
inc(i);
end;
Функция simple, определяющая простоту числа, делается как угодно. В Алгоритмах несколько вариантов. C_O_D_E дала ссылку на один из них.

вот только исходная последовательность не из простых чисел (21 - это не простое число!)

Serge_Bliznykov писал(а):вот только исходная последовательность не из простых чисел (21 - это не простое число!)

Думаю, если бы кто-то вздумал, что все эти числа простые, то вычислять бы нечего было, 10 числом прогрессии было бы 101. Задача именно найти в этой последовательности десятое по счету простое число.