2007位数的亿位,就是倒数第9位、顺数第1999位,用下面的PASCAL程序很容易获取得到结果是7：

　　programygb;

　　vars,s2:string;

　　vari,n,m:integer;

　　begin

　　n:=0;

　　i:=1;

　　whiletruedo

　　begin

　　str(i,s2);

　　s:=s+s2;

　　i:=i+1;

　　iflength(s)>107then

　　ifn>=1900thenbreak

　　elsebegin

　　{1}writeln(copy(s,1,100));

　　delete(s,1,100);

　　n:=n+100;

　　end;

　　end;

　　{2}writeln(copy(s,1,2007-n));

　　writeln(s[1999-n]);

　　end.

　　其它语言可以用类似的办法获得结果,里面注释的{1}和{2}两条语句输出这个完整的2007位数据,注释掉就不输出,最后一个语句是输出结果的.