Работа 3.6 Упр.19 ГДЗ Семакин 10 класс (Информатика)

Задача

Сформировать массив простых чисел, не больших заданного натурального числа $$N$$.

Подробный ответ

Нужно сформировать массив простых чисел, не больших заданного натурального числа $$N$$. Для этого перебираем все числа от $$2$$ до $$N-1$$ и проверяем каждое на простоту.

Число $$p$$ считается простым, если у него нет делителей, кроме $$1$$ и самого $$p$$. Проверку удобно выполнять делением на все числа от $$2$$ до $$\sqrt{p}$$. Если делитель нашёлся, число не простое.

const m=1000;
var
  a: array[1..m] of integer;
  n, i, p, k, j: integer;
begin
  write(‘n = ‘);
  readln(n);
  i := 0;
  p := 1;
  while p < n do
  begin
    k := 0;
    for j := 2 to round(sqrt(p)) do
      if p mod j = 0 then k := k + 1;
    if k = 0 then
    begin
      i := i + 1;
      a[i] := p;
    end;
    p := p + 1;
  end;
  for j := 1 to i do write(a[j], ‘ ‘);
  writeln;
end.