КАК ..., помогите найти цифры натурального числа

[maksim97maksim]

Дано натуральное число. Определить, есть ли в нём цифра a. Верно ли, что в нём нет цифры b? Верно ли, что цифра a встречаеться в нём более k раз ? Определить, есть ли в нём цифры a и b.

[Vanta11a]

Самостоятельно что-то сделано? Если нет - mod и div в помощь.

[Serge_Bliznykov]

вот код, который "разбирает" натуральное число X на отдельные цифры:

  repeat
    {получаем очередную цифру числа
      (справа налево!)    просто берём остаток от деления числа на 10}
    OneDigit := X mod 10;

    тут проверяем цифру в переменной OneDigit 
     на любые соответствия (равна она a или равна b или сколько раз она равна a 
       и т.д. и т.п.

    {оставляем число, делённое на 10 - отбрасываем правую цифру}
    X := X div 10;
  until X=0;

[Аватар]

mod и div не удобно и для длинного не пойдет. Строка символов и цикл по ней как по массиву

[Serge_Bliznykov]

Сообщение от Аватар

mod и div не удобно и для длинного не пойдет. Строка символов и цикл по ней как по массиву

можно и через строку.

Просто строка символов вполне может быть зарублена преподавателем, как неверный подход к решению задачи. А может и прокатить.
От преподавателя зависит.

Но я бы всё таки остановился на решении через mod div...