Объяснение:

Блок схема и листинг программы в приложениях. PROGRAM SUM_ZNAK; var n, i, sum: integer; begin Read(n); sum:=0; while (n > 0) do begin sum := sum+1; n := n div 10; end; Writeln(sum); end.