Определите, является ли число N простым. (паскаль)
10-11 класс
|
Soni09122008
29 июля 2015 г., 14:46:31 (8 лет назад)
Vladisim2013
29 июля 2015 г., 16:52:45 (8 лет назад)
var
N, l, k: integer;
begin
read(N);
if N > 0 then
k := 0;
for l := 1 to N do
if N mod l = 0 then k := k + 1;
if (k >= 1) and (k <= 2) then writeln('Простое') else writeln('Не простое');
end.
Ответить
Другие вопросы из категории
Читайте также
Помогите пожалуйста с 2 задачами! 1) Простым числом называется натуральное число p>1, натуральными делителями которого которого являются
только два числа: 1 и P. Определить, является ли введенное с клавиатуры число простым.
2) Дано число n. Верно ли, что это число содержит ровно 3 одинаковых цифры?
4 задачи: ввести натуральное число и определить, верно ли, что сумма цифр равна 10 (через repeat и until)//// ввести натуральное
число и определить, какие цифры встречаются несколько раз (через repeat и until)///
ввести целое число и найти сумму его цифр (через while)
ввести целое число и определить , верно ли, что в его записи есть две одинаковые цифры(через while)
всё через паскаль абс
Вы находитесь на странице вопроса "Определите, является ли число N простым. (паскаль)", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.