Дано число, определить является оно простым или нет, Вывести «yes» или «no». Сделать **...

Question

Дано число, определить является оно простым или нет, Вывести «yes» или «no».
Сделать на Free Pascal.

Comments

Через цикл

Answer 1

Program n1;
var n: integer;
function pr(a: integer ):boolean;
var i: integer;
begin
if a<2 then pr:=false<br>else begin
pr:=true;
for i:=2 to round(sqrt(a)) do
if a mod i=0 then pr:=false;
end;
end;
begin
readln(n);
if pr(n) then write('yes')
else write('no');
end.