主题：007bond快过来!
chyx
[专家分：450] 发布于 2007-07-24 08:02:00
怎样求绝对素数呀!?
回复列表 （共17个回复）
沙发
Lovely哆啦 [专家分：1360] 发布于 2007-07-24 08:07:00
呕吐!吐血!!!!~~~~~~~~~~~~~~~~`
板凳
bigchen [专家分：1940] 发布于 2007-07-24 08:15:00
弱弱的问一下:
什么是绝对素数?
............
3 楼
007bond [专家分：540] 发布于 2007-07-24 08:15:00
var a,b,i,f:integer;
function su(n:integer):boolean;
var i:integer;a:boolean;
begin
a:=TRUE;
for i:=2 to trunc(sqrt(n)) do
if (n mod i=0) and (n<>2) then
begin
a:=FALSE;break;
end;
su:=a;
end;
begin
readln(a,b);
for i:=a to b do
begin
f:=i;write(i,':');
repeat
if su(f)=FALSE then break;
f:=f div 10;
until f=0;
if f=0 then writeln('YES') else writeln('NO');
end;
end.
4 楼
chyx [专家分：450] 发布于 2007-07-24 08:44:00
为什么吐血?Lovely哆啦?????
5 楼
chyx [专家分：450] 发布于 2007-07-24 08:45:00
oo7bond你怎么不出题目呀?!?!?!?!?!??!?!?!?!?!?!?!?!?
6 楼
Lovely哆啦 [专家分：1360] 发布于 2007-07-24 08:46:00
一个数,本身是素数,从高位到低位依次去掉一个数字,仍然是素数,称之为绝对素数!!
7 楼
Lovely哆啦 [专家分：1360] 发布于 2007-07-24 08:47:00
[em5][em9][em10][em10][em18][em19]
8 楼
Lovely哆啦 [专家分：1360] 发布于 2007-07-24 08:49:00
你说呢?!?!?!?!?!?!?!?!?!?!?!?!?!?!?!?!?!
吐~~`~~~~~~~~
9 楼
chyx [专家分：450] 发布于 2007-07-24 08:49:00
我还是不懂Lovely哆啦.
10 楼
Lovely哆啦 [专家分：1360] 发布于 2007-07-24 08:50:00
继续吐!?!?!?!?!?!?!?!?!?!?!?!?!?!?
吐~~~~~~~~~~~~~~
我来回复
您所在位置：社区首页 — PASCAL语言讨论区 — 007bond快过来!