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

Рассмотрим вариант решения задания из учебника Семакин, Хеннер, Шеина 10 класс, Бином: 12. Дано целое n > 2. Напечатать все простые числа из диапазона [2, n]. *Цитирирование задания со ссылкой на учебник производится исключительно в учебных целях для лучшего понимания разбора решения задания. 10 semakin10 pract/3-4/zad3/12 98

Нужно вывести все простые числа на отрезке $$[2, n]$$. Удобно перебрать все числа от $$2$$ до $$n$$ и для каждого проверить, делится ли оно на какое-нибудь число от $$2$$ до $$\sqrt{x}$$. Если делителей нет, число простое.

Простой вариант программы на Pascal:

var
  x, d, n: integer;
  pr: boolean;
begin
  readln(n);
  for x := 2 to n do
  begin
    pr := true;
    d := 2;
    while d * d <= x do
    begin
      if x mod d = 0 then
      begin
        pr := false;
        break;
      end;
      d := d + 1;
    end;
    if pr then write(x, ‘ ‘);
  end;
end.

Здесь переменная pr показывает, является ли число простым. Если при проверке находится делитель, то число не выводится.

Ответ

var
  x, d, n: integer;
  pr: boolean;
begin
  readln(n);
  for x := 2 to n do
  begin
    pr := true;
    d := 2;
    while d * d <= x do
    begin
      if x mod d = 0 then
      begin
        pr := false;
        break;
      end;
      d := d + 1;
    end;
    if pr then write(x, ‘ ‘);
  end;
end.