1樓：匿名使用者
program fanfan(input,output);
const n=5;
var a:array[1..n] of integer;
b:array[1..n] of boolean;
i,j,s:integer;
begin
for i:=1 to n do
begin
a[i]:=32;
b[i]:=true;
end;
for i:=n downto 1 do
begin
b[i]:=false;
for j:=1 to n do
if b[j] then begin a[j]:=a[j] div 2; s:=s+a[j];end;
a[i]:=a[i]+s; s:=0;
b[i]:=true;
end;
for i:=1 to n do
write(a[i],' ');
end.
答案是81 41 21 11 6
我用手痠了一遍,是正確的;
你可以對n跟該,對5,6,7,8同樣可以算出解
2樓：零感
program aaaa;
var i,i1,n:integer;
a:array[1..5] of integer;
begin
for i:=1 to 5 do
a[i]:=32;
for i:=1 to 5 do
begin
for i1:=1 to 5 do
if i1<>i then begin n:=n+(a[i1] div 2);
a[i1]:=a[i1] div 2; end;
a[i]:=a[i]+n;
n:=0;
end;
for i:=5 downto 1 do
write('"',6-i,'"',a[i]:4,' ');
writeln;
end.
講解：用for迴圈建立第推公式，逐步向回推算。最終得到答案。
81,41,21,11,6
補充：我的程式只有315位元組，樓上的有790位元組，我的空間代價小，運算時間是樓上的三分之一。所以從執行成本來看……（不用說了）
通訊原理試題求解,通訊原理題目求解題過程！
1 1370 1024 64 5 26對應的八位碼是1 111 0101。因為是 的，固是1。因為是1024，屬於第8段落所以 段落碼是111，第8段落的量化間隔是64。所以 5屬於0101 2 a 0101101 b c no 通訊原理題目 求解題過程！由於獨立，期望e z t e m t e c...
管理會計題目，求解答，需有解答過程，謝謝
8m 1600 12m 得 m 400 小於400件時，用外購，大於400件小於600件時，自製。8m 1600 3800.管理會計的一道案例分析題，求解答過程，謝謝謝謝！很急！謝謝謝謝！1 方案 錄音 機利潤分析 季度變動成本 2000件 20 30 20 140000元 季度固定成本 原有固定成...
pascal題目不難希望各位高手能幫幫菜鳥急急急
題目描述似乎短了點,有些地方沒說清楚 1.相鄰的兩部分不能存在包含關係 這個不管它 2.相鄰的單詞必須有重疊部分 3.樣例中,tact tact tactact 4.121212 121212 1212121212而不是12121212 5.n達不到20 注意到這些,只要dfs就可以ac了 醜陋的 ...