神马品牌网冈田将生合影:用Pascal编写"判断任一>2的整数是质数还是合数"这样的程序怎么编啊~~~~
来源：百度文库 编辑：神马品牌网 时间：2024/04/29 13:41:11
求求各位HELP ME 吧~~~~
var i,n:integer;
begin
readln(n);
for i:=1 to rand(sqrt(n)) do
if n mod i=0 then begin writeln('合数');halt;end;
wirtlen('质数');
end.
楼上的如果在比赛场上用HALT的话就肯定拿0鸡蛋
我帮你改为
var i,n:longint;
begin
readln(n);
for i:=1 to trunc(sqrt(n)) do
if n mod i=0 then begin writeln('合数');begin break;end;end;
wirtlen('质数');
end.