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

Question

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

Comments

Программирование. Пожалуйста, очень срочно(

---

ок сейчас решу

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

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

Comments

CLS
READ A, M
FOR i = 1 TO A
IF i = M THEN
PRINT "Est chislo"; M
END IF
NEXT i
DATA 99, 5

---

в операторе DATA можно вводит и другие значение

---

А если в операторе ABC ? или как уж он там

---

ABS это модуль, для арифметических заданий используется

---

Сложно :/

---

А как вам еще помочь?

---

Что такое input?

---

input - это ввод

---

Его можно заменить Райт или Рид?

---

да я же написал другое решение