pascal用循环语句中如何判断素数

2026年09月28日 00:07
有1个网友回答
网友(1):

var
i,n:longint;
begin
readln(n);
for i:=2 to trunc(sqrt(n)) do
if n mod i=0 then break;
if n mod i=<>0 then writeln('Yes') else writeln('No')
end.