pascal 输入一个整数n,请你判断n是否是质数.输入一个数n,如果是质数则输出yes 否则输出no 用break语句
来源:学生作业帮 编辑:拍题作业网作业帮 分类:综合作业 时间:2024/04/29 05:49:34
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.
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.
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.
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.
pascal 输入一个整数n,请你判断n是否是质数.输入一个数n,如果是质数则输出yes 否则输出no 用break语句
给出一个整数n,让你判断n是否是素数,如果n是素数,则输出 yes 否则输出 no 用pascal语言做题
输入一个数,判断是否是整数,如果是整数则输出“Yes”,否则输出“No” .怎么实现输入有多组测试数据啊?
1:输入一个整数A,判断是否为偶数.(是输出“YES”否则输出“NO”).
pascal输入一个整数,如果它是7的倍数,则输出‘yes’,否则输出‘no’.
编写一个C语言程序.输入一个整数,判断n的每位数字是否都相同,若相同则输出“YES”,否则输出NO.
IF语句2 输入整数n,如果n是偶数,则输出“n is even.”,否则输出"n is odd
输入一个正整数n(1≤n≤6)和n 阶矩阵a 中的元素,如果a 是上三角矩阵,输出“YES”;否则,输出“NO”
输入一个正整数,判断每个数从高位到低位各位数字是否按值从小到大排列,如果是则输出“yes”,否则输出“no”.其中inp
c语言作业:输入一个整数,判断该数的每位数字是否都不相同,如果是则输出yes,如果不是则输出no
c语言作业:输入一个整数,判断该数的每位数字是否都相同,如果是则输出yes,如果不是则输出no
任意输入一个数,来判断其是否是素数.若为质数,显示yes,否则,显示no.