PROGRAM z_5_38;</br>
var i,j,n,q:longint;</br>
BEGIN
writeln('vvedite n,q');</br>
readln(n,q);</br>
i:=0;</br>
j:=n;</br>
while j <> 0 do
begin
if j mod 10 =q then  inc(i);</br>
j:=j div 10;</br>
end;</br>
writeln('zifra',q,'v chisle',n,' vstrechaetza  ',i,'raz.');</br>
END.