Сколько цифр d в числе x - PascalABC.NET

Узнай цену своей работы

Формулировка задачи:

Не хочет считать. Или я что-то не так делаю вообще? Напишите как проще будет сделать, пожалуйста.

Решение задачи: «Сколько цифр d в числе x»

textual
Листинг программы
var x,d,a:integer;
begin
 readln(x);
 readln(d);
 x:=abs(x);//чтобы было положительное
 a:=0;
 repeat
  if x mod 10=d then inc(a);
  x:=x div 10;
  until x=0;
 writeln(a);
end.

Объяснение кода листинга программы

  1. В начале объявляются три переменные: x, d и a, которые будут использоваться в программе.
  2. Затем происходит считывание двух чисел: первое число считывается в переменную x, а второе число считывается в переменную d.
  3. Далее происходит преобразование числа x в абсолютное значение с помощью функции abs(x), чтобы в дальнейшем учитывать только положительные числа.
  4. Затем число a инициализируется нулем.
  5. После этого начинается цикл repeat-until, который будет выполняться до тех пор, пока число x не станет равным нулю.
  6. Внутри цикла происходит проверка: если остаток от деления числа x на 10 равен числу d, то к переменной a прибавляется единица.
  7. Затем число x делится на 10 с помощью операции x div 10.
  8. Цикл продолжается до тех пор, пока число x не станет равным нулю.
  9. После окончания цикла число a выводится на экран с помощью функции writeln(a).

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

11   голосов , оценка 3.727 из 5
Похожие ответы