Дано четырехзначное число A. Определить есть ли в нем цифра M. И Сколько раз она встречается?
Записать на языке Паскаль.
Ответы на вопрос
Ответил petyaGavrikov
0
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
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
Новые вопросы