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

мариатмими мариатмими    1   24.05.2019 06:40    1

Ответы
lesta2 lesta2  20.06.2020 02:33
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика