pascal 输入一个整数n,请你判断n是否是质数.输入一个数n,如果是质数则输出yes 否则输出no 用break语句

问题描述：

pascal 输入一个整数n,请你判断n是否是质数.输入一个数n,如果是质数则输出yes 否则输出no 用break语句
program Project1;
var
i,t:word;
n:integer;
begin
readln(n);
for i:=1 to n do
if n mod i=0 then inc(t);
if t=2 then writeln('Yes')
else writeln('no');
readln;
end.

1个回答分类：综合 2014-10-10

问题解答：

我来补答

var n,i,j,k:longint;
t:boolean;
begin
readln(n);
if n=1 then begin
writelN('no');
halt;
end;
t:=true;
for i:=2 to trunc(sqrt(n)) do if n mod i=0 then begin
t:=false;
break;
end;
if t then writeln('yes') else writeln('no');
end.

展开全文阅读

上一页：用学过方位词或者表示颜色的词描述下面的卧室

下一页：五，读一读。