比赛 noip_6 评测结果 AWAWAA
题目名称 打保龄球 最终得分 66
用户昵称 E.M.B.E.R 运行时间 0.000 s
代码语言 Pascal 内存使用 0.00 MiB
提交时间 2008-10-08 21:01:54
显示代码纯文本
program EmberAsh;
label 1;
label 2;
var
i,j,k,n,m,max:integer;
ss:string;
hit:array[1..50,1..2]of integer;
score:array[1..50]of longint;

BEGIN
assign(input,'bowling.in');reset(input);
assign(output,'bowling.out');rewrite(output);
readln(ss);
j:=1;
k:=1;
for i:=1 to length(ss) do
  begin
  if ss[i]=' ' then
    begin
    inc(j);
    k:=1;
    end;
  if (ss[i]='/')and(k=1) then
    hit[j,1]:=10;
  if (ss[i]='/')and(k=2) then
    hit[j,2]:=10-hit[j,1];
  if (ss[i]<='9')and(ss[i]>='0') then
    begin
    hit[j,k]:=ord(ss[i])-48;
    inc(k);
    end;
  end;
for i:=1 to j do
  begin
  if (hit[i,1]=10)and(hit[i+1,1]=10) then
    score[i]:=20+hit[i+2,1];
  if (hit[i,1]=10)and(hit[i+1,1]<>10) then
    score[i]:=10+hit[i+1,1]+hit[i+1,2];
  if (hit[i,1]<>10)and(hit[i,2]+hit[i,1]=10) then
    score[i]:=10+hit[i+1,1];
  if (hit[i,1]<>10)and(hit[i,2]+hit[i,1]<>10) then
    score[i]:=hit[i,1]+hit[i,2];
  end;
write(score[1]);
for i:=2 to j-1 do
  if score[i]>0 then
    write(' ',score[i])
     else
     goto 1;
1:
writeln;
write(score[1]);
for i:=2 to j-1 do
  if score[i]>0 then
    begin
    inc(score[i],score[i-1]);
    write(' ',score[i]);
    end
    else goto 2;
writeln;
2:
close(input);close(output);
END.