Delphi Forum

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('Girdigin...