作业帮 > 综合 > 作业

pascal求质数!是的输出yes,不是的输出no.

来源:学生作业帮 编辑:拍题作业网作业帮 分类:综合作业 时间:2024/05/21 09:15:55
pascal求质数!
是的输出yes,不是的输出no.
这是我写的,
var
n,i,t:integer;
begin
readln(n);
for i:=1 to n do
if n mod i=0 then inc(t);
if t=2 then writeln('Yes') {看如果这个数的因数只有两个(即1和它本身)那么就是质数,输出Yes,否则就是No}
else writeln('No');
end.
都对,要加分哦~