Циклические вычислительные процессы.

[Pavel_Ghost]

Подсчитать k - количество цифр в десятичной записи целого неотрицательного числа n.

[DoDge_VipeR]

k:=0;
while n<>0 do begin
inc(k);
n:=n div 10; end;

[DoDge_VipeR]

................................... ........