sr

program num;

var

i,j,k:integer;

a:array [1..3,1..3] of integer;

procedure t(i,n:integer);

begin

a:=n div 100;

a:=n div 10 mod 10;

a:=n mod 10;

end;

function sm:boolean;

var i,j,s:longint;

begin

s:=1;

for i:=1 to 3 do for j:=1 to 3 do

s:=s*a;

if s=1*2*3*4*5*6*7*8*9 then exit(true) else exit(false);

end;

begin

for i:=123 to 333 do

begin

j:=i*2;

k:=i*3;

t(1,i); t(2,j); t(3,k);

if sm then writeln(i,' ',j,' ',k);

end;

end.

给你源码

var i:integer;

s,st,s1:string;

c:char;

b:boolean;

begin

for i:=123 to 329 do

begin

b:=false;

str(i,st);

str(i*2,s);

str(i*3,s1);

st:=st+s+s1;

for c:='1' to '9' do if pos(c,st)=0 then b:=true;

if not b then writeln(i,' ',i*2,' ',i*3);

end;

end.

建议先测试。