pascal语言题 高分悬赏啊！

来源：百度知道 编辑：UC知道 时间：2024/06/06 12:55:50
题目：输入一个数 判断是不是质数（就是除了一个和它本身没有别的因数的数）
随便什么格式都可以···程序、函数、过程都可以
星期天之前要啊！回答出了高分悬赏！100分以上哦！

program panduan;
var
i,n:longint;
f:boolean;
begin
readln(n);{输入那个数}
f:=true;
for i:=2 to trunc(sqrt(x)) do
if n mod i =0 then
begin
f:=false;break;
end;
if f then writeln('yes') else writeln('no');
end.
如有疑问给我留言

function zs(n:integer):boolean;
var
i:byte;
begin
zs:=n>1;
for i:=2 to round(sqrt(n)) do
if n mod i=0 then zs:=false;
end;
var n:integer;
begin
readln(n);
writeln(zs(n));
end.

function zhishu(x:integer):boolean;
var i:integer;
begin
if (x=0) or (x=1) then exit(false);
if x=2 then exit(true);
for i:=2 to trunc(sqrt(x)) do
if x mod i=0 then exit(false);
exit(true);
end.
小函数一个,exit()是直接跳出子程序并返回值的

var i,n:longint;
f:boolean;
begin
read(n);
f:=true;
for i: