Определить количество цифр с наименьшим значением в цифровой записи данного числа - PascalABC.NET
Формулировка задачи:
Добрый день. Помогите, пожалуйста, написать программу!!
Дано натуральное четырехзначное число. Определить количество цифр с наименьшим значением в цифровой записи данного числа.
Решение задачи: «Определить количество цифр с наименьшим значением в цифровой записи данного числа»
textual
Листинг программы
var
i, k, digit, min, count : integer;
begin
readln(k);
min := 10; count := 0;
for i := 1 to 4 do
begin
digit := k mod 10;
k := k div 10;
if digit < min then
begin
min := digit; count := 1;
end
else if min = digit then inc(count);
end;
writeln; writeln('Минимальная цифра: ', min, ' повторяется ', count, ' раз(а)');
end.
Объяснение кода листинга программы
- Входное значение числа k считывается в цикле readln(k).
- Далее, в цикле for i := 1 to 4 выполняется деление числа k на 10 и остаток от деления (цифра числа) сохраняется в переменную digit.
- Если digit меньше текущего значения переменной min, то min обновляется на значение digit, а count увеличивается на единицу.
- Если digit равно текущему значению min, то к count прибавляется единица.
- После завершения цикла выводится на экран значение min и количество его вхождений count.