Question

Определить количество цифр в числе

Answer 1

Var
A,k:integer;
Begin
WriteLn('Введите целое число');
ReadLn(A);
k:=0;
While A<>0 do
   Begin
   k:=k+1;
   A:=A div 10
   End;
WriteLn('k = ',k)
End.