Question

Нильс сидел верхом на гусе, как всадник на скачущем коне: он вобрал голову в плечи, съёжился и всем телом припал к шее Мартина. Руками он крепко вцепился в гусиные перья и от страха зажмурил глаза. — Сейчас упаду, вот сейчас упаду, — шептал он при каждом взмахе больших белых крыльев. Но десять минут, двадцать, а он не падал. А падать с такой высоты ох как не хочется. Напишите программу, которая проверит безопасность полета.

Формат ввода
Вводится трехзначное число.

Формат вывода
Если число четное, то вывести самую большую цифру числа. Если нет, то цифру, стоящую в разряде десятков.

Пример 1
Ввод Вывод
258 8

Пример 2
Ввод Вывод
625 2

Примечания
В задаче нельзя пользоваться индексацией строк.

Answer 1

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