nhập số nguyên n đếm xem n có bao nhiêu chữ số vd 123 có 3 chữ số môn tin nha 21/07/2021 Bởi Daisy nhập số nguyên n đếm xem n có bao nhiêu chữ số vd 123 có 3 chữ số môn tin nha
program dem_chuso; uses crt; var n:longint; d:byte; begin clrscr; write(‘Nhap n: ‘); readln(n); d:=0; while n>0 do begin d:=d+1; n:=n div 10; end; write(‘So chu so la: ‘,d); readln; end. Bình luận
program dem_chuso;
uses crt;
var n:longint;
d:byte;
begin
clrscr;
write(‘Nhap n: ‘); readln(n);
d:=0;
while n>0 do
begin
d:=d+1;
n:=n div 10;
end;
write(‘So chu so la: ‘,d);
readln;
end.