PRogram yh (input,ouput);
var
m,n,c:integer;
Begin
For m:=0 TO 10 Do
Begin
c:=1;
write(c:40-3*m);
For n:=1 To m Do
begin
c:=c+(m-n+1) Div n;
write(c:6)
End;
writeln
End;
readln
End.
PRogram yh (input,ouput);
var
m,n,c:integer;
Begin
For m:=0 TO 10 Do
Begin
c:=1;
write(c:40-3*m);
For n:=1 To m Do
begin
c:=c+(m-n+1) Div n;
write(c:6)
End;
writeln
End;
readln
End.
原文：http://www.cnblogs.com/Chaobs/p/3837535.html