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

Реклама
Ибет

Ответы и объяснения

Ибет
blowberryninja
blowberryninja

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.

0.0
0 оценок
0 оценок
Оцени!
Оцени!