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

Question

Информатика

Виня

25 июня, 03:40

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

+2

Ответы (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.