【usaco 2012 Nov Bronze】找奶牛Find the Cow!

1749. 【usaco 2012 Nov Bronze】找奶牛Find the Cow!(cowfind.pas/cpp) 
(File IO): input:cowfind.in output:cowfind.out

时间限制:  1000 ms  空间限制:  262144 KB  具体限制  

Goto ProblemSet

题目描述

题目：

     奶牛贝里斯最近逃离了农夫约翰的农场躲在草丛里。于是，农夫约翰试图去找回他的奶牛。不幸的是，这些高高的草丛挡住了约翰的视线。现在，我们把这些草丛描述为一个长度为N的字符串，这个字符串只包含‘（’和‘）’这两种字符。例如，字符串：)((()())()) 。约翰知道贝里斯隐藏的前大腿很像连续的两个左括号((，隐藏的后大腿很像连续的两个右括号))。贝里斯的位置可以描述为：（（的位置为X，））的位置为Y，并且X
问题描述：

     请帮助约翰计算贝里斯隐藏的地方有多少种可能。

找到一双后脚就加上前面的前脚的数量。

var
  s:ansistring;
  ans,x:int64;
  i,j:longint;
begin
  assign(input,'cowfind.in'); reset(input);
  assign(output,'cowfind.out');rewrite(output);
  readln(s);
  j:=1;
  for i:=1 to length(s)-1 do
    begin
      inc(j);
      if (s[i]='(') and (s[j]='(')
        then inc(x);
      if (s[i]=')') and (s[j]=')')
        then ans:=ans+x;
    end;
  writeln(ans);
  close(input);close(output);
end.