Question

编程输入一个正整数，判断它是否是质数，是的话输出yes,不是输出no。

我用的是free pascal,程序最好用program var开头。

Answer 1

#include "stdio.h"
#include "math.h"
int main()
{
int d;
int i,j;
bool m=true;

printf("输入一个正整数：");
scanf("%d",&d);

i=2;
while(i<=sqrt(d))
{
if(d%i==0)
{
m=false;
break;
}
i=i+1;
}
if(m)
printf("Yes");
else
printf("No");
}

Answer 2

program IsPrime;
var n,i:longint; yesboolean;
begin
write('Iput n=');
readln(n);
yes:=n>1;
for i:=2 to trunc(sqrt(n)) do
if n mod i=0 then
begin
yes:=false;
break
end;
if yes then writeln('yes') else writeln('not ');
end.

Answer 3

yes 或no比如2，3是正整数也是质数，4，6是正整数但不是质数