Verified answer

Программа:
Pascal:

var

 num: string;

 amount, i: integer;

begin

 readln(num);

 for i := 1 to length(num) do

   if num[i] = '1' then inc(amount);

 writeln(amount);

end.

Объяснение:

В начале регистрируются переменные num (строчного типа) - это введённое число, amount (целого типа) - количество символов "1", i - для цикла.

Вводится число, которое записывается в переменную num. Далее, с помощью цикла, переменная  i принимает значение от 1 до количества символов в строке. И если элемент с индексом i в строке num равен единице, то увеличиваем значение переменной amount на 1. В конце - вывод amount.

Результат:

111
3

123456
1

112312
3

#SPJ1