===== PascalABC.NET =====
begin
ReadSeqIntegerWhile(p -> p <> 0).Count(p -> p.IsEven).Print
end.
14400. один бит равен одному символу.
Я напишу по простому сам распеределиш
Delete Удаление символа с право
Caps Lok увелечение букв
Esc выхождение из программы
Enter вход в программу или разделение строки
Проверка финансово-хозяйственной деятельности за определенный период времени