输入一整数A,判断它是否质数.(提示:若从2到A的平方根的范围内,没有一个数能整除A,则A是质数.)
题目
输入一整数A,判断它是否质数.(提示:若从2到A的平方根的范围内,没有一个数能整除A,则A是质数.)
答案
var a,i:longint;t:boolean;
begin
t:=true;
readln(a);
if a=1 then writeln('NO');
if a1 then begin
for i:=2 to trunc(sqrt(a)) do
if a mod i=0 then t:=false;
if t then writeln('YES')else writeln('NO');
end;
end.
举一反三
已知函数f(x)=x,g(x)=alnx,a∈R.若曲线y=f(x)与曲线y=g(x)相交,且在交点处有相同的切线,求a的值和该切线方程.
我想写一篇关于奥巴马的演讲的文章,写哪一篇好呢?为什么好
最新试题
- 由于天气逐渐变冷,牧场的草每天以均匀的速度减少,经计算,牧场的草可供16头牛吃6天,也可供20头牛吃5天,那么11头牛可以吃多少天?
- 某校足球联赛的得分规则是:胜一场得3分,平一场得l分,负一场得0分.七(2)班足球队在校联赛中踢了14场球,其中负了5场,共得19分,你知道七(2)班共胜了多少场吗?
- 谁能告诉我时间的定义是什么?
- 近朱者赤,近墨者黑.
- sub al,al PF标志等于多少,或者mov al,255 add al,1 PF等于多少
- 最后一个字是寒的古诗
- it is prefer to you or me
- 应该哪样顺序?how many emails do you get every day?
- 用修改符号修改下列病句 1、桌子上有尺子和钢笔,这
- 一个长方体的长,宽,高各增加2倍,它的表面积增加几倍?体积增加几倍?
热门考点
- 如一个柜高80厘米,长270厘米,宽60厘米,怎么算的有多少平方米?
- 这个为什么命名为3,3,4-三甲基己烷
- 汉译英 谢谢你没在室内抽烟.Thank you for _ _ indoors.
- 在英语里水果(如苹果、香蕉、梨)等等,前面加an还是加a?
- 初速度为零的匀加速直线运动的6个比例关系的推论
- 某气体X可能有H2,CO,CH4中的一种或几种组成,将气体充分燃烧,将燃烧后的气体依次通入浓硫酸A和澄清石灰水B,A中质量增加3.6g,B中质量增加4.8g,求气体组成,(不唯一,但题给的是:1 2
- 已知实数a使得三个一元二次方程,x2-X+a=0 x2-2x+a=0 x2-4x+a=0 至少有一个方程有解,求a的取值范围
- arc sin(12/138)
- 群众差不多把嗓子都喊哑了.这句话的意思是什么?
- 6 4 8 8二十四点