Составить программу, определяющую, является ли введённое с клавиатуры число простым. Если простое вывести да, если нет соответственно нет.

Question

Верлена

6 мая, 09:30

+5

Ответы (1)

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

Гельнара · Answer 1

var a, i, k:integer;

begin

read (a) ;

for i:=1 to a do

if a mod i = 0 then k:=k+1;

if (a=1) or (k=2) then write ('Да') else write ('Нет')

end.