记录编号	111188	评测结果	AAAAAAAAAA
题目名称	调试LED灯	最终得分	100
用户昵称	甘罗	是否通过	通过
代码语言	Pascal	运行时间	1.377 s
提交时间	2014-07-13 11:02:07	内存使用	0.17 MiB

var
a,b,d,n,m,l:longint;
c:char;
s:string;
z:array[1..33]of integer;
begin
assign(input,'testled.in');
assign(output,'testled.out');
reset(input);
rewrite(output);

readln(l);
readln(s);
for a:=l downto 1 do
z[a]:=(ord(s[a])-48);

readln(n);
for a:=1 to n do
begin
read(c);
if c='a' then
for b:=1 to l do
z[b]:=1;

if c='b' then
for b:=1 to l do
z[b]:=0;

if c='c' then
for b:=1 to l do
if z[b]=1 then z[b]:=0
          else z[b]:=1;

if c='1' then
for b:=l downto 1 do
if (l-b+1) mod 2=1 then z[b]:=(z[b]+1)mod 2;

if c='2' then
for b:=l downto 1 do
if (l-b+1) mod 2=0 then z[b]:=(z[b]+1)mod 2;

if (c>'2')and(c<='9') then
  begin
  for b:=l downto l-(ord(c)-48)+1 do
  z[b]:=1;
  for b:=1 to ord(c)-48 do
  z[b]:=0;
  end;
end;

d:=0;
for a:=1 to l do
begin
write(z[a]);
if z[a]=1 then inc(d);
end;
writeln;
writeln(d);
close(input);close(output);
end.