Basamak Sayısı Hesaplama

Kylix, Lazarus, Freepascal ile ilgili konuları buraya yazabilirsiniz.
Cevapla
meyd
Üye
Mesajlar: 1
Kayıt: 31 Eki 2016 08:59

Basamak Sayısı Hesaplama

Mesaj gönderen meyd »

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.
Cevapla