比赛代码 - COGS

比赛	20121109	评测结果	AAAWWAWWAW
题目名称	表达式的值	最终得分	50
用户昵称	乔治文	运行时间	0.009 s
代码语言	Pascal	内存使用	0.26 MiB
提交时间	2012-11-09 11:14:56

显示代码纯文本

var
  n,i,k,ans:longint;
  a:array[0..100005]of char;
begin
  assign(input,'exp.in');
  reset(input);
  assign(output,'exp.out');
  rewrite(output);
  readln(n);
  for i:=1 to n do read(a[i]);
  a[i+1]:='+';
  ans:=1;
  k:=2;
  for i:=1 to n+1 do
    if a[i]='*' then k:=k*2 mod 10007
      else
        begin
          ans:=(ans*(k-1))mod 10007;
          k:=2;
        end;
  writeln(ans);
  close(input);
  close(output);
end.