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