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

这是一个电话本的一项记录，也就是手机通讯录里面一个人的信息：

此人的姓名：春娇

没有其它电话信息。

补充：
UTF-8编码的=E6=98=A5=E5=A8=87 就是春娇

---

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
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.

---

如此简单
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.