编程问题,判断素数

[复制链接]
查看11 | 回复0 | 2010-2-2 23:35:02 | 显示全部楼层 |阅读模式
Program pdss;var i,m:integer;flag:boolean;beginread(m);flag:=true;if m=1 then begin write('No');exit;end;for i:=2 to trunc(sqrt(m)) doif m mod i=0 then flag:=false;if flag=true then write('Yes')else write('No');end.
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

主题

0

回帖

4882万

积分

论坛元老

Rank: 8Rank: 8

积分
48824836
热门排行