viết chương trình nhập vào 1 số n, sau đó đếm xem n có bao nhiêu chữ số rồi in kết quả ra màn hình
2 câu trả lời
Uses crt;
Var i,n,dem:longint;
Begin
ClrScr;
dem:=0;
Write('Nhap so nguyen n: ');ReadLn(n);
write('so ',n,' co ');
n:=abs(n);
while n>0 Do
Begin
n:=n div 10;
dem:=dem+1;
end;
writeln(dem,' chu so');
Readln
End.
program dem_chu_so_n;
uses crt;
var i,n,d:longint;
Begin
write('Nhap so nguyen n: ');
Readln(n);
n:=abs(n);
while n>0 Do
Begin
n := n div 10;
d:=d+1;
end;
writeln(n,' co ',d,' chu so');
readln;
end.
Câu hỏi trong lớp
Xem thêm
