Уровень B.Напишите программу, которая получает с клавиатуры натуральное число и определяет, сколько раз в его десятичной записи встречается цифра 1.
uses School;
begin
Digits(ReadInt64).Count(p -> p = 1).Print
end.
Объяснение:
School - стандартная библиотека для решения школьных задач, вошедшая в PascalABC.NET, начиная с версии 3.6.3
https://znanija.com/task/36827961 , помогите пожалуйста 100 б
Ответ:
Ну или для PascalABC.NET Более старых версий (Не имеющих поддержки библиотеки School):
ReadInt64().ToString.ToCharArray.Count(p -> p = '1').Println;
