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

Сделать на Free Pascal.

Question

Информатика

Риммична

1 августа, 03:48

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

Сделать на Free Pascal.

+1

Ответы (1)

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

Боряша · Answer 1

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.

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

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

Сделать на Free Pascal.