设定一个任意数字串,数出这个数中的偶数个数,奇数个数,及这个数中所包含的所有位数的总数,例如：1234

此神秘的数为123.
Pascal代码如下：
var a,b,n,t:longint;
begin
readln(n);
repeat
while n>0 do
begin
t:=n mod 10;
if not odd(t) then inc(a) else inc(b);
n:=n div 10;
end;
if a+b>9 then n:=a*1001+b*101
else n:=a*101+b*11;
writeln(n); a:=0; b:=0;
until n=123;
end.