记录编号	3780	评测结果	WWAAWW
题目名称	打保龄球	最终得分	33
用户昵称	SMXX	是否通过	未通过
代码语言	Pascal	运行时间	0.020 s
提交时间	2008-10-10 19:15:13	内存使用	0.12 MiB

program df;
var
f1,f2:text;
r:char;
s:array[1..12] of string;
a:array[1..14,1..2]of integer;
b:array[1..14]of integer;
i,len,sum:integer;
begin
assign(f1,'bowling.in');
assign(f2,'bowling.out');
reset(f1);
rewrite(f2);

len:=1;
for i:= 1to 14 do begin a[i,1]:=0;a[i,2]:=0;b[i]:=0;end;
while not eof(f1) do begin
  read(f1,r);
  if r<>' 'then s[len]:=s[len]+r
            else inc(len);
  end;
for i:= len downto 1 do begin
  if s[i]='/'then begin b[i]:=10+a[i+1,1]+a[i+2,1]+a[i+1,2];
                        if a[i+1,2]<>0 then b[i]:=b[i]-a[i+2,1];
                             a[i,1]:=10;end
             else if s[i][2]='/'then begin a[i,1]:=ord(s[i][1])-48;
                                            a[i,2]:=10-a[i,1];
                                             b[i]:=10+a[i+1,1];end
                                else begin a[i,1]:=ord(s[i][1])-48;
                                           a[i,2]:=ord(s[i][2])-48;
                                             b[i]:=a[i,1]+a[i,2];end;
  end;

for i:= 1to 10 do
 if i<>10 then write(f2,b[i],' ')
            else writeln(f2,b[10]);
 sum:=0;
for i:= 1to 10 do begin
   sum:=sum+b[i];
if i<>10 then write(f2,sum,' ')
            else write(f2,sum);
            end;
 close(f1);
 close(f2);
 end.