// PascalABC.NET 3.1, сборка 1201 от 18.03.2016
begin
Writeln(ReadlnString('n=').Count(x->x='0'),' нулей');
end.
<u><em>Тестовое решение:</em></u>
n= 5350004533300045645600
8 нулей
<span> за одну минуту 1мин = 60с
1 Мбайт = 8 Мбит
</span>200Мбит/с / 8 Мбит *60c = 1500 Мбайт/мин
Вот алгоритм ввиде блок схемы