Условие: Дано натуральное число. Проверить, является ли оно простым. Примечание: простым...

Question

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

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.