Дано число, определить является оно простым или нет, Вывести «yes» или «no». Сделать на Free Pascal.
Дано число, определить является оно простым или нет, Вывести «yes» или «no».
Сделать на Free Pascal.
Гость
Ответ(ы) на вопрос:
ГостьProgram n1;
var n: integer;
function pr(a: integer ):boolean;
var i: integer;
begin
if a<2 then pr:=false
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.
Не нашли ответ?
Похожие вопросы