Az alábbi letöltési lehetőségek közül választhatsz: (
segítség)
Típus: text/plain
Tartalmaz szöveget
Karakterkódolás: us-ascii
Méret: 651 byte
program vb;
var cdb,kez:longint;
p,pp,i,j,jegy:longint;
a:array[0..1025] of longint;
t1,t2:text;
function min(a,b:longint):longint;
begin if a<b then min:=a else min:=b; end;
begin
assign(t1,'wcS.in'); reset(t1);
assign(t2,'wcS.out'); rewrite(t2);
readln(t1,cdb);
for kez:=1 to cdb do begin
readln(t1,p); pp:=1; for i:=1 to p do pp:=pp+pp; jegy:=0;
for i:=1 to pp do read(t1,a[i-1]); for i:=1 to p+1 do readln(t1);
while pp>0.137 do begin
pp:=pp div 2;
for i:=0 to pp-1 do begin
j:=min(a[2*i],a[2*i+1]);
if j>0 then a[i]:=j-1 else begin a[i]:=0; inc(jegy); end;
end;
end;
writeln(t2,'Case #',kez,': ',jegy);
end;
close(t1); close(t2);
end.