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

Записать на языке Паскаль.

Question

Информатика

Кузяха

5 декабря, 20:02

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

Записать на языке Паскаль.

+5

Ответы (1)

Знаете ответ?

Леонтий · Answer 1

Var a, m, k, i:integer;

begin

write ('a = ') ;

readln (a) ;

write ('m = ') ;

readln (m) ;

k:=0;

for i:=1 to 4 do

begin

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

a:=a div 10;

end;

writeln ('k = ', k) ;

end.

Пример:

a = 6726

m = 6

k = 2

Дано четырехзначное число A. Определить есть ли в нем цифра M. И Сколько раз она встречается?Записать на языке Паскаль.

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

Записать на языке Паскаль.