Bài 8. Lặp với số lần chưa biết trước

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Nguyễn Vy

Viết chương trình nhập vào từ bàn phím một số nguyên bất kì, đếm và in ra màn hình số chữ số của số nguyên đó.

Nguyễn Lê Phước Thịnh
4 tháng 8 2020 lúc 19:47

uses crt;

var n:integer;

st:string;

begin

clrscr;

write('Nhap n='); readln(n);

str(n,st);

writeln('So chu so cua ',n,' la: ',length(st));

readln;

end.

✿✿❑ĐạT̐®ŋɢย❐✿✿
4 tháng 8 2020 lúc 21:54

uses crt;
var n,m,i : int64;
begin clrscr;
write('Nhap n:'); readln(n);
m:=n;i:=0;
while m<>0 do begin
m:=m div 10;
i:=i+1;
end;
write('So chu so cua ',n,' la :', i);
readln
end.


Các câu hỏi tương tự
Yết Thiên
Xem chi tiết
Phan Thị Phương Thy
Xem chi tiết
An Vy
Xem chi tiết
Lê Tâm Anh
Xem chi tiết
su nè
Xem chi tiết
Mỹ Trinh
Xem chi tiết
HUY HUỲNH QUANG
Xem chi tiết
Thu Anh
Xem chi tiết
Chira Nguyên
Xem chi tiết
Trí Nguyễn
Xem chi tiết