什么意思？具体一点

算了，给道题出来，答题，不管楼顶问
学校4-1的题
给不多于3位的整数，求几位，并打印给位上的数，名为：aaS

@ET-99
@方科晨大王

@ET-1999

@zty61211

@断崖枫001

@断涯枫001

艾特了这么多人，还以为是什么挂世纪难题。。
program aas;
var x:string;
n,i:longint;
begin
readln(x);
n:=length(x);
writeln(n);
for i:=1 to n do write(x[i],' ');
end.

10-2 一矩形阵列由数字0到9组成,数字1到9代表不同的元素,集合的定义为沿元素数字上下左右还是元素数字则为同一集合,求给定矩形阵列的集合个数。

再来个
在舞会上，绅士们和女士们进入舞厅时，各自排成一队。跳舞开始时，依次从男队和女队的队头上各出一人配成舞伴。规定每个舞曲只能有一队跳舞者，若两队初始人数不相同，则较长的那一队中未配对者等待下一轮舞曲。现要求写一算法模拟上述舞伴配对问题。

@zhy61211 麻烦把上上上道弄得简单易懂点

赶脚你的题目很难理解啊。。。

出答案了
@zty612111

begin
　　fillchar(bz,sizeof(bz),true);num:=0;
　　write(‘input file:’);readln(name);
　　assign(int,name);reset(int);
　　readln(int,m,n);
　　for i:=1 to m do
　　　begin readln(int,s);
　　　for j:=1 to n do
　　　　begin pic[i,j]:=ord(s[j])-ord(‘0’);
　　　　　if pic[i,j]=0 then bz[i,j]:=false;
　　　　end;
　　　end;
　　close(int);
　　for i:=1 to m do
　　　for j:=1 to n do if bz[i,j] then doing(i,j);
　　writeln('NUMBER of cells=',num);readln;
　end. const max=10000; var a,b:array[1..max] of integer; m,n,k1,k,i,f1,r1,f2,r2:integer; begin readln(m,n); for i:=1 to m do a[i]:=i; for i:=1 to n do b[i]:=i; readln(k); k1:=1; f1:=1;r1:=m; f2:=1;r2:=n; repeat writeln(a[f1]:3,' ',b[f1]:3); r1:=r1+1;a[r1]:=a[f1]; f1:=f1+1 ; r2:=r2+1;b[r2]:=b[f2]; f2:=f2+1; k1:=k1+1; until k1>k end.

错了不要找我