主题：急救！！会的回帖狂+分！！
一败涂地
[专家分：0] 发布于 2006-05-17 16:50:00
９、一个素数,去掉最高位,剩下的数仍是素数;再去掉剩下的数的最高位,余留下来的数还是素数,这样的素数叫纯粹素数。求出所有3位的纯粹素数[em18]
回复列表 （共3个回复）
沙发
jerryv16 [专家分：140] 发布于 2006-05-17 16:53:00
[em10][em10][em10][em10][em10][em10][em10][em10]
板凳
贺天行宝 [专家分：2300] 发布于 2006-05-17 20:53:00
var
s:array[1..999]of boolean;
i,j,k,l,m,n:longint;
procedure cut(var k:longint);
var i,j,l:longint;
s:array[1..10]of longint;
begin
i:=k;l:=0;
while i>0 do
begin
s[l+1]:=i mod 10;
i:=i div 10;
inc(l);
end;
k:=0;i:=1;
for j:=l downto 2 do
begin
inc(k,s[j]*i);
i:=i*10;
end;
end;
begin
for i:=1 to 999 do
begin
s[i]:=true;
for j:=2 to trunc(sqrt(i))+1 do
if i mod j=0 then begin s[i]:=false; break; end;
if i=2 then s[i]:=true;
end;
for i:=100 to 999 do
begin
k:=i;
while (k<>0)and(s[k]) do cut(k);
if k=0 then writeln(i);
end;
end.
3 楼
贺天行宝 [专家分：2300] 发布于 2006-05-17 20:53:00
加分哦
我来回复
您所在位置：社区首页 — PASCAL语言讨论区 — 急救！！会的回帖狂+分！！