Var
  a:Array[0..2000000] of Int64;
  n,i,d:Longint;
BEGIN
  Assign(input,'DEMSO.inp');Reset(input);
  Assign(output,'DEMSO.out');Rewrite(output);
  Readln(n);
  d:=0;
  For i:=1 to n do
    Begin
      Read(a[i]);
      If (a[i] mod 3=0) and (a[i] mod 9<>0) then inc(d);
    End;
  Writeln(d);
END.

#include <bits/stdc++.h>
using namespace std;
long long a[1000007];
long long tcs(long long n)
{
    long long S=0;
    while(n>0)
    {
        S+=n%10;
        n=n/10;
    }
    return S;
}
int main()
{
    long long n;
    cin>>n;
    long long dem=0;
    for(int i=1; i<=n; i++)
    {
        cin>>a[i];
        if(tcs(a[i])%3==0 and tcs(a[i])%9!=0) dem++;
    }
    cout<<dem;
}