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.