Question

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

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.