<em>// PascalABC.NET 3.3, сборка 1576 от 16.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var (a,b):=ReadInteger2;
if a.IsEven then Writeln(a,' - четное')
else Writeln(b,' - четное')
end.
<u>Примеры</u>
3 18
18 - четное
10 7
10 - четное
7 9
9 - четное - это неверно, нарушено условие (нет четных)
6 12
6 - четное - это верно, хоть условие и нарушено (оба четных)
1. 205=128*1+64*1+8*1+4*1+1*1. 5единиц
2. Ошибка в условии. В восьмиричной системе счисления нет числа 8.
Ответы в приложенииииииииииииииииии
Программа пройдётся по массиву. Если елемент массива больше М, то елемент будет записан в М. И так 10 раз. В конце выводится М. В итоге выведет 41 (самое большое число в массиве).