回帖：var a:array[1..100] of byte;
i,k,m,n:integer;
begin
writeln('input n');
readln(n);
fillchar(a,sizeof(a),0);
i:=5;
repeat
for k:=1 to 5 do
a:=a+9;
for k:=1 to i do
begin
a:=a+a div 10;
a:=a mod 10;
end;
if a0 then inc(i);
until i>=n;
for k:=i downto 1 do write(a);
readln;
end.
希望我们可以交个朋友，我也在学习pascal
QQ：690188103 记得加时说明哦！！！