Определите, является ли число N простым. (паскаль)

Question

Информатика

Таиса

29 апреля, 06:22

Определите, является ли число N простым. (паскаль)

+4

Ответы (1)

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

Эллина · Answer 1

Var

N, l, k: integer;

begin

read (N) ;

if N > 0 then

k : = 0;

for l : = 1 to N do

if N mod l = 0 then k : = k + 1;

if (k > = 1) and (k < = 2) then writeln ('Простое') else writeln ('Не простое') ;

end.