var s:string;
i,d,k:word;
f1,f2:text;
const fi='BOISO.INP';
fo='BOISO.OUT';
begin
assign(f1,fi);reset(f1);
assign(f2,fo);rewrite(f2);
readln(f1,s);
val(copy(s,1,2),k);
for i:=3 to length(s) do
begin
k:=(k mod 100)*10+ord(s[i])-48;
if (k mod 11=0)and((k mod 10)+(k div 100)<10) then inc(d);
end;
writeln(f2,d);
close(f1);close(f2);
end.