var
s:string;
i,k:integer;
begin
Write('Введите натуральное число: '); Readln(s);
k:=0;
for i:=1 to Length(s) do
if s[i]='0' then Inc(k);
Writeln('Количество нулей в записи числа равно ',k)
end.
dmFyCiAgczpzdHJpbmc7CiAgaSxrOmludGVnZXI7CmJlZ2luCiAgV3JpdGUoJ9CS0LLQtdC00LjRgtC1INC90LDRgtGD0YDQsNC70YzQvdC+0LUg0YfQuNGB0LvQvjogJyk7IFJlYWRsbihzKTsKICBrOj0wOwogIGZvciBpOj0xIHRvIExlbmd0aChzKSBkbwogICAgaWYgc1tpXT0nMCcgdGhlbiBJbmMoayk7CiAgV3JpdGVsbign0JrQvtC70LjRh9C10YHRgtCy0L4g0L3Rg9C70LXQuSDQsiDQt9Cw0L/QuNGB0Lgg0YfQuNGB0LvQsCDRgNCw0LLQvdC+ICcsaykKZW5kLg==