作业帮 > 综合 > 作业

给出一个整数n,让你判断n是否是素数,如果n是素数,则输出 yes 否则输出 no 用pascal语言做题

来源:学生作业帮 编辑:拍题作业网作业帮 分类:综合作业 时间:2024/04/29 03:06:45
给出一个整数n,让你判断n是否是素数,如果n是素数,则输出 yes 否则输出 no 用pascal语言做题
program sushu(input,output);
var
i,n,t:integer;
begin
read(n);
for i:=2 to n-1 do
if n mod i=0 then t:=1;
if t=1 then writeln('yes') else writeln('no');
end.
(100以内)