uses crt;
var s:string; n,a,d:longint; b:array[1..10000000]of longint;
procedure print;
var i,ss:longint;
begin
   ss:=0;
   for i:=1 to n do 
      if b[i]=1 then begin val(s[i],a); ss:=ss*10+a; end;
   if (ss<>0)and(ss mod 3=0) then inc(d);
end;
function dequy(a:longint):longint;
var i:longint;
begin
   if a=n+1 then print else
         for i:=0 to 1 Do
            begin
               b[a]:=i;
               dequy(a+1);
            end;
end;
begin 
clrscr;
   readln(s);
   n:=length(s);
   dequy(1);
   writeln(n);
readln
end.

uses crt;
var k:string;
    d:byte;
procedure check(k:string);
var i,t:byte;
begin
    if length(k)=0 then exit;
    if k[1]='0' then exit;
    t:=0;
    for i:=1 to length(k) do
        t:=t+ord(k[i])-48;
    if t mod 3=0 then
        begin
            inc(d);
        //    writeln(k);
        end;
end;
procedure try1(ii:byte;k:string);
var i:byte;
    s:string;
begin
    if length(k)=0 then exit;
    check(k);
    for i:=ii to length(k) do
        begin
            try1(i,copy(k,1,i-1)+copy(k,i+1,length(k)-i));
        end;
end;
begin
    clrscr;
    readln(k);
    d:=0;
    try1(1,k);
    writeln(d);
readln;
end.