主题：sos 各位武林高手，快快救救我吧！！！
番茄
[专家分：0] 发布于 2005-10-10 12:16:00
我是初学者，请问这题怎么编？
１、如果一个两位整数是质数而且把它的两位颠倒过来得到的也是质数，则说此数是无暇数。输入一个数字序列，找出其中的所有无暇数。
２、将１、２…，９共个数分成三组分别组成三个三位数，且使这三个三位数构成1:2:3的比例，试求出所有满足条件的三个三位数。例如三个三位数满足以上条件.[em20]
回复列表 （共4个回复）
沙发
zhaoren [专家分：420] 发布于 2006-01-16 16:06:00
1:
program asd;
var a:array[1..10]of integer;
i,j,k,l:integer;
function zs(x:integer):boolean;
var i:integer;
begin
zs:=false;
for i:=2 to trunc(sqrt(x)) do
if x mod i=0 then exit;
x<>1 then zs:=ture;
end;
function cf(x:integer):integer;
begin
cf:=(x mod 10)*10+(x div 10);
end;
begin
for i:=1 to 10 do read(i);
for i:=1 to 10 do
if zs(a[i])and(zs(cf(a[i])) then writeln(a[i]);
end.
板凳
lmj9201 [专家分：1400] 发布于 2006-01-17 11:45:00
第二题
var
i:integer;
s,ss:string;
c:char;
begin
for i:=123 to 321 do
begin
str(i,ss);
str(i*2,s); ss:=ss+s;
str(i*3,s); ss:=ss+s;
for c:='1' to '9' do
if pos(c,ss)=0 then break;
if pos(c,ss)=0 then continue;
writeln(i,' ',i*2,' ',i*3);
end;
end.
3 楼
口口and枕头 [专家分：1550] 发布于 2006-01-17 15:55:00
楼上那位~不错不错~还是小小优化了一下的~~
4 楼
lmj9201 [专家分：1400] 发布于 2006-02-22 12:45:00
呵呵，我是从别处贴来的
我来回复
您所在位置：