Для заданного натурального числа найти наименьшую цифру, стоящую ** четном месте, считая...

Question

Для заданного натурального числа найти наименьшую цифру, стоящую на четном месте, считая от младших разрядов к старшим. Программа на языке Паскаль:
var
n, c, mn, i: integer;

begin
repeat
write('Введите натуральное число больше 9 n=');
readln(n);
until n > 9;
mn := 9;
i := 0;
while n > 0 do
begin
c := n mod 10;
i := i + 1;
if (i mod 2 = 0) and (c < mn) then mn := c;
n := n div 10;
end;
write('Минимальная цифра на четном месте справа=', mn);
end.
Что означает каждая переменная: n, c, mn, i?

Answer 1

Рассмотрим назначение переменных на примере.
Пусть задано число 34561.
Тогда n=34651 (введённое число сохраняется в переменной n). В цикле значение n меняется так: 3465, 346, 34, 3, 0.
Переменная c используется при получении цифр числа, т.е. в этой переменной последовательно будут значения 1, 5, 6, 4, 3.
В переменной mn сохраняется минимальная цифра, стоящая на чётном месте. Значения этой переменной: 9 (начальное значение), 6, 4.
Переменная i используется для определения места (чётное или нечётное) цифры числа. Начальное значение i=0, затем i в цикле увеличивается на 1: 1, 2, 3, 4, 5.