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

Задача

Рассмотрим вариант решения задания из учебника Семакин, Хеннер, Шеина 10 класс, Бином: 1. Дано простое число. Найти следующее за ним простое число. *Цитирирование задания со ссылкой на учебник производится исключительно в учебных целях для лучшего понимания разбора решения задания. 10 semakin10 pract/3-5/zad2/1 98

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

Чтобы найти следующее простое число, будем последовательно проверять числа, начиная с $$a+1$$, пока не найдём простое.

Для проверки простоты числа достаточно убедиться, что оно не делится ни на одно число от $$2$$ до $$a-1$$. Если делитель найден, число составное; если делителей нет — простое.

Var
a, i, b: integer;
begin
readln(a);
b := 1;
while b > 0 do
begin
  b := 0;
  a := a + 1;
  for i := 2 to a — 1 do
    if a mod i = 0 then b := b + 1;
end;
writeln(a);
end.

Здесь переменная $$b$$ используется как признак составного числа: если при проверке найден хотя бы один делитель, то $$b > 0$$, и цикл продолжается. Когда делителей не находится, $$b = 0$$, и текущее значение $$a$$ является следующим простым числом.