pascal 输入一个整数n,请你判断n是否是质数.输入一个数n,如果是质数则输出yes 否则输出no 用break语句program Project1;vari,t:word;n:integer;beginreadln(n);for i:=1 to n doif n mod i=0 then inc(t);if t=2 then writeln('Yes'
来源:学生作业帮助网 编辑:作业帮 时间:2024/08/29 08:33:48
pascal 输入一个整数n,请你判断n是否是质数.输入一个数n,如果是质数则输出yes 否则输出no 用break语句program Project1;vari,t:word;n:integer;beginreadln(n);for i:=1 to n doif n mod i=0 then inc(t);if t=2 then writeln('Yes'
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.
pascal 输入一个整数n,请你判断n是否是质数.输入一个数n,如果是质数则输出yes 否则输出no 用break语句program Project1;vari,t:word;n:integer;beginreadln(n);for i:=1 to n doif n mod i=0 then inc(t);if t=2 then writeln('Yes'
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.