~★猪¤猪★~ 2011-10-26 07:27:00
点我顶贴
收藏
删除
Var
i,j,xx:longint；
xc,zx:array[0..100003]of qword；
Begin
assign(output,’5556.pas’)；
rewrite(output)；
readln(xx)；
i:=1；
xc[1]:=1；
zx[1]:=1；
repeat
inc(i)；
for j:=2 to i do
zx[j]:=xc[j]+xc[j-1]；
for j:=1 to i do
xc[j]:=zx[j]；
until i=xx；
write(’xc:array[1..’,xx,’]of longint=(’)；
for j:=1 to i-1 do
begin
if j mod 8=0
then writeln；
write(xc[j],’,’)；
end；
write(xc[i])；
write(’)；’)；
close(output)；
End.