Условие: Дано натуральное число. Проверить, является ли оно простым. Примечание: простым называется натуральное число, которое имеет ровно два различных натуральных делителя: единицу и само это число.

Question

Информатика

Лавруня

31 марта, 13:58

Условие: Дано натуральное число. Проверить, является ли оно простым. Примечание: простым называется натуральное число, которое имеет ровно два различных натуральных делителя: единицу и само это число.

+1

Ответы (1)

Знаете ответ на вопрос?

Вира · Answer 1

Var a, i, k: integer;

Begin

write ('Введите число: ') ;

readln (a) ;

k:=0; for i:=1 to a do

if a mod i = 0 then k:=k+1;

if k=2 then writeln (a,' простое число')

else writeln (a,' не является простым числом')

End.