//PascalABC.NET
//Версия 3.3, сборка 1634
begin
write(abs(ReadInteger('n=')).ToString.Select(x->x.ToDigit).Where(t->t.IsEven).Count);
end.
Сетунь оперировала троичной симметричной системой (знаки "-", "0", "+"), а не обычной ("0", "1", "2"). Но задание хорошее.
По порядку от a) до o):
0, 1, 10, 11, 100, 101, 110, 111, 1000, 1001, 1010, 1011, 1100, 1101, 1110.
Числа вообще по порядку там идут от 0 до 15.
Сделай фор сплюснем потом также только с минусом
Пуск - все программы - стандартные - paint