На языке программирования Pascal составить программу, которая проверяет, является ли введенное с клавиатуры число простым или нет (т. е. число делится только на 1 и на само себя без остатка) (число 354)
На языке программирования Pascal составить программу, которая проверяет, является ли введенное с клавиатуры число простым или нет (т. е. число делится только на 1 и на само себя без остатка) (число 354)
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
program CheckPrimeNumber;
var
num, i: integer;
isPrime: boolean;
begin
writeln('Enter a number: ');
readln(num);
isPrime := true;
if num < 2 then
isPrime := false
else
begin
for i := 2 to num div 2 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.