源码(估计没人看得懂) var e:extended; i:longint; begin e:=0.99; for i:=1 to 99 do begin if i mod 2=1 then begin if i>2 then begin writeln; end; write('line:',i div 2+i mod 2:2,' '); end; if e>0.9 then begin write('number:',i:2,'= ',100-e*100:0:20,'% '); end else begin write('number:',i:2,'=',100-e*100:0:20,'% '); end; e:=e*0.99; end; write('number:100=100%'); readln; end.