СРОЧНО В ПАСКАЛЕ!!!!!Сколько раз данная цифра встречается в данном числе решить с помощью...

Question

СРОЧНО В ПАСКАЛЕ!!!!!Сколько раз данная цифра встречается в данном числе решить с помощью repeat. 7 класс

Answer 1

BeginVar a:=ReadInteger('Введите число');Var b:=ReadInteger('Введите цифру ');Var c:integer;
Repeatif a mod 10=b then c+=1;a:=a div 10;until (a=0);print(c);end.

---

Comments

PascalABC.NET

---

begin
Var a:=ReadInteger('Введите число');
Var b:=ReadInteger('Введите цифру ');
Var c:integer;

Repeat
if a mod 10=b then c+=1;
a:=a div 10;
until (a=0);
print(c);
end.