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

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?

Рассмотрим назначение переменных на примере.

Пусть задано число 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.