Klavyeden girilen bir sayının kaç basamaklı olduğunu veren minik bir algoritma yaptım. Bunu sağlayan hazır bir fonksiyon var mı acaba?..
program basamak_sayisi;
uses crt;
var n:real;i:byte;
begin
clrscr;
writeln('Bir sayi giriniz');readln(n);
repeat
n:=int(n/10);
i:=i+1;
until n=0;
writeln('Girdiginiz sayi',i,' basamaklidir');
readln;
end.