Предмет: Информатика,
автор: Vasyadog
Задача:
В натуральном числе, найти количество цифр, которые больше его десятков.
Формат ввода:
На вход подается натуральное число от 10 до 30000.
Формат вывода:
Найденное количество.
Ответы
Автор ответа:
0
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
Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger;
var s:=n.ToString;
var d:=s[s.Length-1];
s.Where(c->c>d).Count.Println
end.
Пример
15334
2
Интересные вопросы
Предмет: Русский язык,
автор: anelzn04
Предмет: Информатика,
автор: Аноним
Предмет: Українська література,
автор: kvakaa
Предмет: Математика,
автор: Настя123555