用pascal程序：举出所有用1,2,3这三个数字组成的, 且每位数字互不相同的两位数

var a,i,j:longint;
begin
for i:=1 to 3 do
for j:=1 to 3 do
if i<>j then
writeln(i*10+j);
end.

可以用m代替十位数，用n代替个位数。
程序如下：
program xxx(input,output);
var
m,n:integer;
begin
for m:=1 to 3 do
for n:=1 to 3 do
if m<>n then writeln(m*10+n);
end.

如此简单
var i,j:integer;
begin
for i:=1 to 3 do begin
for j:=1 to 3 do begin
if i<>j then write(i*10+j,' ')
end;
end;
end.

var
x,y:1..3;
begin
for x:=1 to 3 do
for y:=1 to 3 do
if (x<>y)
then
write(x,y,' ');
end.

楼主，这么简单的你也做不出吗？