Untitled

Var a,l,r:array[1..1000000] of longint;
    s:string;
    i,m,k:longint;
begin
 Readln(s);
 for i:=2 to length(s) do
  begin
   if s[i]=s[i-1] then inc(k);
   a[i]:=k;
  end;
 Readln(m);
 for i:=1 to m do
  Readln(l[i],r[i]);
 for i:=1 to m do
  Writeln(a[r[i]]-a[l[i]]);
end.