记录编号 6294 评测结果 AAAAAA
题目名称 打保龄球 最终得分 100
用户昵称 Gravatarname:弓虽 是否通过 通过
代码语言 Pascal 运行时间 0.001 s
提交时间 2008-10-31 20:10:16 内存使用 0.11 MiB
显示代码纯文本
program bowling(input,output);
var
i,j,k:longint;
s:string;
a:array[1..50,1..2]of longint;
sum:array[1..50]of longint;
begin
assign(input,'bowling.in');
assign(output,'bowling.out');
reset(input);
rewrite(output);

fillchar(a,sizeof(a),-100);
readln(s);
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;
write(sum[1]);
for i:=2 to j-1 do
    if sum[i]>0 then write(' ',sum[i])
      else break;
writeln;
write(sum[1]);
for i:=2 to j-1 do
    if sum[i]>0 then begin
      inc(sum[i],sum[i-1]);
      write(' ',sum[i]);
      end;

    close(input);
    close(output);

end.