var
a:array[1..5,0..5]of byte;
i,j:byte;
begin
for i:=1 to 5 do a[i,5]:=32;
for i:=4 downto 0 do
begin
for j:=1 to 5 do
a[j,i]:=a[j,i]div 2;
a[i+1,i]:=a[i+1,i+1];
for j:=1 to 5 do
if j<>i then inc(a[i+1,i],a[j,i]);
end;
for i:=1 to 5do write(a[i,0]:3);
end.
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024