Чем абак отличается от счетов​

Абак — греческое слово и переводится как счетная доска. Идея его уст­ройства заключается в наличии специального вычислительного поля, где по определенным правилам перемещают счетные элементы. Действитель­но первоначально абак представлял собой доску, покрытую пылью или песком. На ней можно было чертить линии и перекладывать камешки. В Древней Греции абак служил преимущественно для выполнения денежных расчетов. В левой части подсчитывались крупные денежные единицы, а в правой — мелочь. Счет велся в двоично-пятеричной системе счисления. На такой доске было легко складывать и вычитать, добавляя или убирая ка­мешки и перенося их из разряда в разряд.

PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018Внимание! Если программа не работает, обновите версию!

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