rus10011111 Var
a, n, k: integer;
begin
k := 0;
readln(n);
for t := 1 to n do
begin
readln(a);
if a mod 10 = 7 then k := k + 1;
end;
writeln(k);
end.