Нужно найти n-ое число в последовательности обычных чисел. n amp;lt; 1000000.

Нужно отыскать n-ое число в последовательности обычных чисел. n lt; 1000000. Помогите пожалуйста.

Задать свой вопрос
1 ответ
Var n,p,k,i,j:integer; f:boolean;
begin
write('n = ');
readln(n);
p:=2;
for i:=2 to n do
 begin
 f:=false;
 while not f do
  begin
  p:=p+1;
  k:=0;
  for j:=2 to round(sqrt(p)) do
   if p mod j = 0 then k:=k+1;
  f:=k=0;
  end;
 end;
writeln(p);
end.

Пример:
n = 25
97
Дарина Доутова
Спасибо окончательно, но у меня вся неувязка в том, что ограничения до 1 миллиона, и этот код по медли не проходит на тесте, где вводится 1000000
Nelli Dzjavulko
Да, если есть ограничение по медли, то этот вариант не подойдет. Необходимо улучшить.
Ромик Хакимходжинов
Можно использовать решето Аткина. Для Вашей задачки подойдет. Очень прытко считает и до 1000000 и больше.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт