// PascalABC.NET 3.3.5, сборка 1636 от 10.03.2018
// Внимание! Если программа не работает, обновите версию!
begin
var (n,k):=(ReadInteger,0);
while n>0 do (n,k):=(n div 10,k+1);
Writeln(k)
end.
V=i*T*D*1=16*10*44100=<span>
7056000 бит/8/1024=</span><span><span>861,328125Кбайт</span></span>
53
Так как i в цикле for-это счётчик повторений. Первое значение-начальное, второе-конечное. Как только цикл досчитает, прибавляя по единице за каждый шаг к минимальному значению, до конечного значения, он выполнится ещё раз и остановится.