Напишите программку, которая выводит все простые числа в диапазоне от K

Напишите программу, которая выводит все простые числа в спектре от K до N ( 2 K N 100000 ). Pascal

Задать свой вопрос
1 ответ
Var
 k,n,x,d: integer;

begin
 read(k,n);
 for x := k to n do
  if x mod 10 = 3 then
    begin
    d := 2;
    while x mod d lt;gt; 0 do d := d + 1;
    if x = d then write(x,' ');
    end;
end.
Adelja Skudnaja
Спасибо, но мне нужен конкретно массив для этого от 2 до 100000
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт