比赛 |
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.