Разработать подпрограмму, которая в качестве аргумента получает целое число и проверяет, является ли оно простым. Используя подпрограмму вывести на экран все простые числа из промежутка целых чисел, определенного пользователем. Pascal ABC
Разработать подпрограмму, которая в качестве аргумента получает целое число и проверяет, является ли оно простым. Используя подпрограмму вывести на экран все простые числа из промежутка целых чисел, определенного пользователем. Pascal ABC
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
program IsPrime;
function IsPrimeNumber(num: integer): boolean;
var
i: integer;
begin
IsPrimeNumber := true;
if num < 2 then
IsPrimeNumber := false
else
for i := 2 to num div 2 do
if num mod i = 0 then
begin
IsPrimeNumber := false;
break;
end;
end;
var
startNum, endNum, i: integer;
begin
writeln('Enter the starting number: ');
readln(startNum);
writeln('Enter the ending number: ');
readln(endNum);
writeln('Prime numbers in the range from ', startNum, ' to ', endNum, ':');
for i := startNum to endNum do
begin
if IsPrimeNumber(i) then
writeln(i);
end;
end.