Напишите функцию, которая определяет количество цифр переданного ей числа в паскале

Question

Напишите функцию, которая определяет количество цифр переданного ей числа в паскале

Comments

function ln ( n : integer ) : integer ; var a : integer ; function kitti ( x , akk : integer ) : integer ; begin if x = 0 then kitti := akk else kitti := kitti ( x div 10 , akk + 1 ) ; end ; begin ln := kitti ( n , 0 ) ; end;

Answer 1

Сделай из числа строку [string]. Для строковых величин есть length.