记录编号	6325	评测结果	WWWWWW
题目名称	打保龄球	最终得分	0
用户昵称	bly1991	是否通过	未通过
代码语言	Pascal	运行时间	0.001 s
提交时间	2008-10-31 21:43:46	内存使用	0.11 MiB

program xxx(input,output);
var
i,j,k:integer;
s:string;
a:array[1..50,1..2]of integer;
sum:array[1..50]of longint;
f1,f2:text;
begin
fillchar(a,sizeof(a),100);
assign(f1,'bowling.in');
reset(f1);
readln(f1,s);
close(f1);
j:=1;
k:=1;
for i:=1 to length(s) do begin
    if s[i]=' ' then begin
      inc(j);
      k:=1;
      end;
    if (s[i]='/') and (k=1) then a[j,1]:=10;
    if (s[i]='/') and (k=2) then a[j,2]:=10-a[j,1];
    if (s[i]<='9') and (s[i]>='0') then begin
      a[j,k]:=ord(s[i])-48;
      inc(k);
      end;
    end;
for i:=1 to j do begin
    if (a[i,1]=10) and (a[i+1,1]=10) then sum[i]:=20+a[i+2,1];
    if (a[i,1]=10) and (a[i+1,1]<>10) then sum[i]:=10+a[i+1,1]+a[i+1,2];
    if (a[i,1]<>10) and (a[i,2]+a[i,1]=10) then sum[i]:=10+a[i+1,1];
    if (a[i,1]<>10) and (a[i,2]+a[i,1]<>10) then sum[i]:=a[i,1]+a[i,2];
    end;
assign(f2,'bowling.out');
rewrite(f2);
write(f2,sum[1]);
for i:=2 to j do
    if sum[i]>0 then write(f2,' ',sum[i])
      else break;
writeln(f2);
write(f2,sum[1]);
for i:=2 to j do
    if sum[i]>0 then begin
      inc(sum[i],sum[i-1]);
      write(f2,' ',sum[i]);
      end
    else begin close(f2); halt; end;
close(f2);
end.