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

来源:学生作业帮助网 编辑:作业帮 时间:2024/04/27 23:04:21

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

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.
都对,要加分哦~

pascal求质数!是的输出yes,不是的输出no. pascal输入一个整数,如果它是7的倍数,则输出‘yes’,否则输出‘no’. 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题目输出2——n之间的所有素数(质数). C语言编程题 判断质数输入包括一行,为一个整数N(1 < N ≤1000),给出你让你判断的数字.输出包括一行,如果给出的整数N为质数,那么输出YES;如果N不是质数,那么输出NO. 输入一个正整数A,如果A的各个数字之和为7的倍数则输出‘YES’,否则输出‘NO’ Turbo pascalTurbo pascal的程序求解,如题. 给出一个整数n,让你判断n是否是素数,如果n是素数,则输出 yes 否则输出 no 用pascal语言做题 判断一个数是否为奇数若是则输出YES 不是则输出NO c语言实现输出1~100内质数,求思路. PASCAL语言求程序:对于给定的n,求1至n中有多少个数是质数 pascal中求质数的问题.求素数时,为什么只需再2至n的平方根内找就行了? 用pascal语言编程:输出n(n Free Pascal编程时有一些题,1.判断一个数是不是质数2.求200以内能被3,5,7同时整除的数,输出3.判断一个数是不是完全因子数(例如:6,它有约数1、2、3、6,除去它本身6外,其余3个数相加,1+2+3=6.28, 已知正整数 n是两个不同的质数的乘积,试求出较大的那个质数 .输入输入只有一行,包含一个正整数 n.输出输出只有一行,包含一个正整数p,即较大的那个质数.样例输入21样例输出7用pascal解 Pascal求任意一个三位数数个位数字之和 输入:123; 输出:1+2+3=123 一道Free Pascal的题目求100~1000之间能被7整除的数,每行输出10个. PASCAL求按照a*b=的格式输入算式,通过计算输出a*b的结果 pascal 求10个随机数,输出它们最小的一个数,最大的一个数,平均数,还有和!老师出的题目需要输出4个东西.