Задача:

В натуральном числе, найти количество цифр, которые больше его десятков.

Формат ввода:

На вход подается натуральное число от 10 до 30000.

Формат вывода:

Найденное количество.

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018Внимание! Если программа не работает, обновите версию!begin  var n:=ReadInteger;  var s:=n.ToString;  var d:=s[s.Length-1];  s.Where(c->c>d).Count.Printlnend.Пример153342