Дано четырехзначное число А. Определить есть ли в нем цифра М. И сколько раз она встречается?

Я думаю ты вопрос не правильно написала ...

Программа на паскале:

var a, m, k:integer;

begin

write ('a = ') ;

readln (a) ;

write ('m = ') ;

readln (m) ;

k:=0;

if a div 1000 = m then k:=k+1;

if a div 100 mod 10 = m then k:=k+1;

if a mod 100 div 10 = m then k:=k+1;

if a mod 10 = m then k:=k+1;

writeln ('k = ', k) ;

end.

Пример:

a = 7537

m = 7

k = 2