На вход программе подается натуральное число n < = 109. Проверьте, является ли оно простым. Выведите YES или NO в зависимости от ответа на вопрос задачи. Максимальное время работы программы на одном тесте - 0,1 секунды.

Question

Информатика

Мелитика

7 декабря, 17:47

На вход программе подается натуральное число n < = 109. Проверьте, является ли оно простым. Выведите YES или NO в зависимости от ответа на вопрос задачи. Максимальное время работы программы на одном тесте - 0,1 секунды.

+4

Ответы (1)

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

Силантий · Answer 1

Var

a, flag, i:integer;

Begin

Readln (a) ;

flag:=0;

for i:=2 to a do begin

if ia then if a mod i=0 then

begin flag:=1; break; end; end;

if flag=1 then Writeln ('NO')

else Writeln ('YES')

End.