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

Question

Задача:

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

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

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

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

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

Answer 1

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.Println
end.

Пример
15334
2