Question

Наверняка ты слышал(-а) о числах, которые математики называют «простыми». Это числа, которые имеют всего два делителя: 1 и само это число. Математики вычисляют простые числа с древности до сегодняшних дней. В чём же практическая польза простых чисел? На них основаны многочисленные алгоритмы шифрования, это основа безопасности наших личных данных, денежных вкладов, тайна переписки. Алгоритм поиска простых чисел несложный, надо перебрать все делители начиная с 2 и заканчивая квадратным корнем из числа, которое проверяем на простоту. Если находится хоть один делитель — число составное, если нет - простое. Составь программу и определи первое простое число на интервале [7830; 9000]. В программе надо учесть, что на интервале может не быть простых чисел. Ответ:дайте просто ответ пожалуйста​

Answer 1

Ответ:

program FirstPrimeNumber;

var

i, j, num: integer;

isPrime: boolean;

begin

num := 0; // хранит найденное простое число

for i := 7830 to 9000 do // перебираем числа на интервале

begin

isPrime := true; // предполагаем, что текущее число простое

for j := 2 to i-1 do // перебираем все возможные делители

begin

if i mod j = 0 then // если число делится без остатка

begin

isPrime := false; // оно не является простым

break; // переходим к следующему числу

end;

end;

if isPrime then // если число простое

begin

num := i; // сохраняем его

break; // поиск первого простого числа завершен

end;

end;

if num = 0 then // если на интервале нет простых чисел

writeln('Простых чисел на интервале нет')

else // иначе выводим найденное простое число

writeln('Первое простое число на интервале [7830; 9000]: ', num);

readln;

end.

Answer 2

Конечно! Первое простое число на интервале [7830; 9000] равно 7841.