Для заданного натурального числа найти наименьшую цифру, стоящую на четном месте, считая от младших разрядов к старшим. Программа на языке Паскаль: 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?
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?