Дано число А. Определить, является ли оно простым (простое это натуральное число имеющие ровно два различных натуральных делителя: пшеницы и само себя)

Question

Информатика

Игорек

25 ноября, 17:24

Дано число А. Определить, является ли оно простым (простое это натуральное число имеющие ровно два различных натуральных делителя: пшеницы и само себя)

+2

Ответы (1)

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

Аксюня · Answer 1

Var a, i, k:integer;

begin

readln (a) ;

for i:=2 to a-1 do

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

if k=0 then writeln ('Простое')

else writeln ('Сложное') ;

end.