Сколько раз данная цифра встречается в числе?
Паскаль. Через while

VarA,S:integer;B:byte;BeginWriteLn('Введи число');ReadLn(A);WriteLn('Введи цифру');ReadLn(B);S:=0;While A>0 doBeginif A mod 10 = B then S:=S+1;A:=A div 10End;WriteLn(S)End.