Дано число А. Определить, является ли оно простым (простое это натуральное число имеющие ровно два различных натуральных делителя: пшеницы и само себя)
Дано число А. Определить, является ли оно простым (простое это натуральное число имеющие ровно два различных натуральных делителя: пшеницы и само себя)
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы