Question

Однажды, когда, вооружившись корявым сучком, Нильс разгребал кучу сухих листьев, на него вдруг напали муравьи.

Целые полчища огромных пучеглазых муравьев окружили его со всех сторон. Они кусали его, обжигали своим ядом, карабкались на него, залезали за шиворот и в рукава.

Когда он прибежал к болоту, на котором расположилась стая, гуси даже не сразу узнали его — весь он, от макушки до пяток, был облеплен чёрными муравьями.

— Стой и не шевелись!— закричал ему Мартин и стал быстро-быстро склёвывать одного муравья за другим.

Напишите программу, которая определит степень опасности, подстерегающей Нильса.

Формат ввода
Вводится целое число n, затем n строк.

Формат вывода
Вывести количество строк, в которых не было муравьёв (можно проверить отсутствие мурав, так можно учесть любые формы слова), и длину самой короткой такой строки. Выводить в формате:

Строк без муравьёв:

Символов в самой короткой

Пример 1
Ввод Вывод
4
Нильс разгребал кучу сухих листьев
На него вдруг напали муравьи
Целые полчища огромных пучеглазых муравьев
Они окружили его со всех сторон
Строк без муравьёв: 2
Символов в самой короткой 31
Пример 2
Ввод Вывод
5 Строк без муравьёв: 4
Символов в самой короткой 14
Они кусали его
обжигали своим ядом
карабкались на него
залезали за шиворот и в рукава
чёрные муравьи

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