begin
var c := ReadlnString;
if c.Any(t -> not (t in ['0'..'9'])) then
begin
Print('Ошибка ввода');
exit
end;
var a := c.Select(t -> t.ToDigit).ToArray;
Writeln('a) ', c.Where(t -> t = '9').Count);
Writeln('б) ', a.Where(t -> t = a[0]).Count);
Writeln('в) ', a.Where(t -> t.IsOdd).Count);
Writeln('г) ', a.Where(t -> t < 3).Sum);
Writeln('д) ', a.Where(t -> t.IsEven and (t > 4))
.Aggregate(1, (p, q)-> p * q));
Writeln('е) ', a.Where(t -> (t = 2) or (t = 3)).Count);
end.
Пример1764963253120a) 1б) 2в) 7г) 6д) 36е) 4Примечание: количество цифр в числе практически не ограничено, контроль на ввод "не-цифр" имеется.1} 136 - не может получиться (если это 13 и 6, то первая сумма больше второй; а если это 1 и 36, то 36 нельзя получить как сумму 2-х цифр)
2} 712 - может получиться (например для числа 257)
3} 215 - не может получиться (если это 21 и 5, то первая сумма больше второй; если это 2 и 15, значит средняя цифра должна быть <=2, но тогда нельзя получить 15 как сумму средней и младшей цифр)
4} 10 - не может получиться (первая сумма больше второй)
5} 621 - не может получиться (21 нельзя получить как сумму 2-х цифр)
6} 619 - не может получиться (19 нельзя получить как сумму 2-х цифр)
ответ: 1
