program z1;
var a,m:integer;
begin
read(a);
if a mod 2 = 0 then
begin
m:=a mod 10;
if a div 100 > m then m:=a div 100;
if a mod 100 div 10 > m then m:=a mod 100 div 10
end
else m:=a mod 100 div 10;
write(m)
end.
Объяснение:
Вводим число
Если число чётное, то
1) присваиваем m значение последней цифры числа
2) если первая цифра числа больше m, то присваиваем m значение первой цифры числа
3) если вторая цифра числа больше m, то присваиваем m значение второй цифры числа
иначе присваиваем m значение второй цифры числа
Выводим m
