Найти количество цифр, равных 0, в заданном натуральном числе - Pascal ABC
Формулировка задачи:
Найти количество цифр, равных 0, в заданном натуральном числе.
Решение задачи: «Найти количество цифр, равных 0, в заданном натуральном числе»
textual
Листинг программы
var n,k:integer;
begin
write('Введите натуральное число n=');
readln(n);
k:=0;
if n>0 then //иногда 0 относят к натуральным числам
while n>0 do
begin
if n mod 10=0 then k:=k+1;
n:=n div 10;
end;
write(k);
end.
Объяснение кода листинга программы
- Создаются две переменные: n и k, которые являются целочисленными типами данных.
- Выводится сообщение «Введите натуральное число n=» для ввода числа пользователем.
- Переменная k инициализируется значением 0.
- Если введенное число больше 0, то начинается цикл while, который выполняется до тех пор, пока число не станет равным 0.
- Внутри цикла проверяется, делится ли число на 10 без остатка. Если да, то значение переменной k увеличивается на 1.
- После завершения внутреннего цикла число делится на 10, и результат присваивается переменной n.
- По завершении внешнего цикла выводится значение переменной k.