Ответ:
E:\Класс7\Физика\Задача5.doc
<u>PascalABC.NET 3.3.5, сборка 1648 от 31.03.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
ReadSeqInteger(ReadlnInteger).Where(t->t.IsEven).Max.Println
end.
<u>Пример</u>
6
20 31 -18 0 14 7
20
13*16^3+9*16^2+5*16+5=55637
55637/2, остаток 1,
27818/2, остаток 0,
13909/2, остаток 1,
6954/2, остаток 0,
3477/2, остаток 1,
1738/2, остаток 0,
869/2, остаток 1,
434/2, остаток 0,
217/2, остаток 1,
108/2, остаток 0,
54/2, остаток 0,
27/2, остаток 1,
13/2, остаток 1,
6/2, остаток 0,
3/2, остаток 1,
1/2, остаток 1.
Итого: 1101100101010101, 7 нулей.