Помогите, пожалуйста
Сколько раз данная цифра встречается в числе?
Паскаль АВС. Через while

я так и думал

var a,b,k:integer;beginreadln(a,b);k:=0;while a>0 do begin if a mod 10=b then k:=k+1; a:=a div 10; end;writeln(k);end.Пример:13534 32