Ответ:

var a,k:integer;

begin

readln(a);

k:=0;

while a>0 do

begin

if a mod 10 = 1 then k:=k+1;

a:=a div 10;

end;

writeln('k = ',k);

end.

Пример:

31815

k = 2

Объяснение: