var 
i:integer;
p,k:real;
begin
k:=0;
for i:=10 to 99 do 
if (i mod ((i mod 10)+(i div 10))=0) then  k:=k+1;
writeln ('Kol-vo chisel ravno ',k);
end.