Напишите программу, которая получает с клавиатуры натуральное число и определяет, простое оно или нет. Для этого нужно делить число на все натуральные числа, начиная с 2, пока не получится деление без остатка. Паскаль
Напишите программу, которая получает с клавиатуры натуральное число и определяет, простое оно или нет. Для этого нужно делить число на все натуральные числа, начиная с 2, пока не получится деление без остатка. Паскаль
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
program PrimeNumber;
var
num, i: integer;
isPrime: boolean;
begin
isPrime := true;
write('Enter a natural number: ');
readln(num);
if num <= 1 then
isPrime := false
else
begin
for i := 2 to num - 1 do
begin
if num mod i = 0 then
begin
isPrime := false;
break;
end;
end;
end;
if isPrime then
writeln(num, ' is a prime number.')
else
writeln(num, ' is not a prime number.');
end.