найти К-тое простое число в арифметической прогрессии:
11, 21, 31,41...
!!!!Простые числа- числа имеющие два делителя (1 и само число)
подробнее здесь: http://ru.wikipedia.org/wiki/Простое_число
Задача в паскале на нахождение числа в последовательности
Извените а нельзя ли поподробнее подогнать под мою задачку а то я что-то
не понял))
P.S. заранее спасибо
не понял))
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 дала ссылку на один из них.
n:=0;
while n<k do
begin
if simple(i*10+1) then inc(n);
inc(i);
end;
Функция simple, определяющая простоту числа, делается как угодно. В Алгоритмах несколько вариантов. C_O_D_E дала ссылку на один из них.
Искусство программирования - заставить компьютер делать все то, что вам делать лень.
Для "спасибо" есть кнопка "Спасибо" в виде звездочки внизу под ником автора поста.
Для "спасибо" есть кнопка "Спасибо" в виде звездочки внизу под ником автора поста.
-
- Сообщения: 375
- Зарегистрирован: 31 авг 2007, 03:06
вот только исходная последовательность не из простых чисел (21 - это не простое число!)
Serge_Bliznykov писал(а):вот только исходная последовательность не из простых чисел (21 - это не простое число!)
Думаю, если бы кто-то вздумал, что все эти числа простые, то вычислять бы нечего было, 10 числом прогрессии было бы 101. Задача именно найти в этой последовательности десятое по счету простое число.
Искусство программирования - заставить компьютер делать все то, что вам делать лень.
Для "спасибо" есть кнопка "Спасибо" в виде звездочки внизу под ником автора поста.
Для "спасибо" есть кнопка "Спасибо" в виде звездочки внизу под ником автора поста.