Write a function that calculates the number of digits of a number (PascalABC)

univerkov | November 23, 2020 | education

Function kol(n:integer):integer;
var
kol1:integer;
begin
kol1:=0;
repeat
kol1:=kol1+1;
n:=n div 10;
until n=0;
kol:=kol1;
end;

One of the components of a person's success in our time is receiving modern high-quality education, mastering the knowledge, skills and abilities necessary for life in society. A person today needs to study almost all his life, mastering everything new and new, acquiring the necessary professional qualities.