program find_all_ones;
var c, a, b :integer;
begin
c:=0;
Writeln ('Введите число a');
Readln(a);
While a>=1 do
begin
b:= a mod 10;
a:= a div 10;
if b=1 then
c:=c+1;
end;
Writeln ('Колличество единиц в числе - ',c,'.')
end.
cHJvZ3JhbSBmaW5kX2FsbF9vbmVzOwp2YXIgYywgYSwgYiA6aW50ZWdlcjsKYmVnaW4KICBjOj0wOwogIFdyaXRlbG4gKCfQktCy0LXQtNC40YLQtSDRh9C40YHQu9C+IGEnKTsKICBSZWFkbG4oYSk7CiAgV2hpbGUgYT49MSBkbwogIGJlZ2luCiAgICBiOj0gYSBtb2QgMTA7CiAgICBhOj0gYSBkaXYgMTA7CiAgICBpZiBiPTEgdGhlbgogICAgICBjOj1jKzE7CiAgZW5kOwogIFdyaXRlbG4gKCfQmtC+0LvQu9C40YfQtdGB0YLQstC+INC10LTQuNC90LjRhiDQsiDRh9C40YHQu9C1IC0gJyxjLCcuJykgCmVuZC4=