Дано число А. Определить, является ли оно простым (простое это натуральное число имеющие...

Question

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

Comments

пшеницы? :)

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.