Условие: Дано натуральное число. Проверить, является ли оно простым. Примечание: простым называется натуральное число, которое имеет ровно два различных натуральных делителя: единицу и само это число.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
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.