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

Question

Информатика

Гога

4 июля, 23:07

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

+4

Ответы (2)

Знаете ответ на вопрос?

Валяка · Answer 1

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

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

Настуля · Answer 2

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