Дано натуральное число. определить: 1) определить количество повторений заданной цифры в нем 2) сколько раз в нем встречается цифра, равная последней 3) количество четных цифр в нем. желательно в basic. но можно и
паскаль

var a,c,l,w1,w2,w3 : longint;

begin

  readln(a,c);

  w1:=0;

  w2:=0;

  w3:=0;

  l:=a mod 10;

  while a>0 do

  begin

     if a mod 10=c then w1:=w1+1;

     if a mod 10=l then w2:=w2+1;

     if a mod 2=0 then w3:=w3+1;

     a:=a div 10;

  end;

  writeln(w1,' ',w2,' ',w3);

end.