记录编号	111228	评测结果	AAAAAAAAAA
题目名称	调试LED灯	最终得分	100
用户昵称	NBWang	是否通过	通过
代码语言	Pascal	运行时间	1.359 s
提交时间	2014-07-13 14:18:05	内存使用	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.