выбор из ряда чисел простых чисел

[изо]

Как изменить указанную ниже программу, которая запрашивает конкретное число Z, чтобы проверить его – простое оно или нет, так чтобы она могла проверить числовой ряд до числа N, далее, выделила (распечатала) из этого ряда все простые числа и далее, что очень важно, из выбранных простых чисел выбрала (распечатала) те числа, которые при делении на 9, имеют остаток равный d (может быть равный const: 0,1,2,...8)

program z_number; 
uses crt; 
var Number, CounterI:word; 
    Flag:boolean; 
begin 

 clrscr; 
 writeln('введите число'); 
 readln(Number); 

 Flag := false;  
for CounterI := 2 to trunc(sqrt(Number)) do 
  if (Number mod CounterI = 0) then 
  begin 
   Flag := true; 
   break; 
  end; 

if (Flag) then 
  writeln('Данное число не является простым') 
 else 
  writeln('Данное число является простым'); 

 readln;
 end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[mss]

Реализаций "решета Эратосфена", в том числе на Паскале, в интернете пруд пруди)
К чему пыжиться и в мучениях изобретать велосипед ?

[Serge_Bliznykov]

а в чём сложности то?
решение "в лоб":

function isPrime(X: LongInt): boolean;
var i: integer;
Begin
     isPrime:=false;
     if x<2 then Exit;
     if not odd(x) and (x<>2) { проверяем на чётность  }
          then exit;
     i:=3;
     while i <= sqrt(x) do { проверяем только нечётные }
     begin
          if x mod i = 0 then Exit;
          inc(i,2);
     end;
     isPrime:=true;
End;

begin
   // ввод границы N и требуемого остатка от деления KK
   for i=2 to N do
    if ((i mod 9) = KK) and isPrime(i) then WriteLn(i);
end.

[изо]

Уважаемый Serge Bliznukov в представленной тобой программе выдаётся ошибка: "Неизвестное имя "i" " - в самом конце программы. Пробовал разобраться, но чем больше исправлял выдаваемые ошибки, тем дальше оказывался положительный результат - программа не работала. Прошу разъяснить - в чём тут дело?

function isPrime(X: LongInt): boolean;
var i: integer;
Begin
     isPrime:=false;
     if x<2 then Exit;
     if not odd(x) and (x<>2) { проверяем на чётность  }
          then exit;
     i:=3;
     while i <= sqrt(x) do { проверяем только нечётные }
     begin
          if x mod i = 0 then Exit;
          inc(i,2);
     end;
     isPrime:=true;
End;

begin
   // ввод границы N и требуемого остатка от деления KK
   
for i:=2 to N do  (НЕИЗВЕСТНОЕ ИМЯ " i ") - ОШИБКА!
    
if ((i mod 9) = KK) and isPrime(i) then WriteLn(i);
end.

________
Вы почему код не оформляете?!!
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[MyLastHit]

Потому что i - это глобальная переменная. А ее объявили как локальную.

var i: integer;
function isPrime(X: LongInt): boolean;
Begin
  isPrime:=false;
  if x<2 then Exit;
  if not odd(x) and (x<>2) { проверяем на чётность }
  then exit;
  i:=3;
  while i <= sqrt(x) do { проверяем только нечётные }
  begin
    if x mod i = 0 then Exit;
    inc(i,2);
  end;
  isPrime:=true;
End;

begin
// ввод границы N и требуемого остатка от деления KK
  for i:=2 to N do (НЕИЗВЕСТНОЕ ИМЯ " i ") - ОШИБКА!
  if ((i mod 9) = KK) and isPrime(i) then WriteLn(i);
end.

Так пробуй.

изо, оформляй код специальным тегом. Вообще не читаемо.

[Serge_Bliznykov]

MyLastHit, в принципе Вы абсолютно правы, так как Вы предложили заработает. Но вообще-то.
имелось в виду, что в функции одна переменная. а в цикле в основном теле - другая.

Там же кроме I нужно описать N и KK.

т.е. такой код:

function isPrime(X: LongInt): boolean;
var i: integer;
Begin
     isPrime:=false;
     if x<2 then Exit;
     if not odd(x) and (x<>2) { проверяем на чётность  }
          then exit;
     i:=3;
     while i <= sqrt(x) do { проверяем только нечётные }
     begin
          if x mod i = 0 then Exit;
          inc(i,2);
     end;
     isPrime:=true;
End;

var
  i, N, KK : longint;
begin
   Readln(N);
   ReadLn(KK);
   for i=2 to N do
       if ((i mod 9) = KK) and isPrime(i) then 
             WriteLn(i);
end.