Bài tập về repeat until, giúp mình nhé ^^!

[denyoblur]

Viết chương trình đếm số chữ số của 1 số nguyên N (VD N=12345 => có 5 chữ số) Giúp mình nha ^^!

[lehang_gb1]

code đây bạn ah!, bài này rất đơn giản chỉ phải sử dụng phép toán DIV thôi bạn ah, dùng biến d để đếm.


Var N,d:integer;
Begin
write('Nhap vao so nguyen duong N:');
Readln(N);
d:=0;
Repeat
N:=N div 10;
inc(d);
until N=0;
write('So chu so cua N la:',d);
Readln
End.

[Heroboss12]

var n:string;
begin
write('Nhap so nguyen n ');
readln(n);
writeln('Do dai so nguyen n la ',length(n));
readln;
end.

[Binhthcslt]

Cách này mới hay! Nếu khai báo n dạng số lại phải đổi sang xâu. Good!

[denyoblur]

Nếu sử dụng cách của bạn heroboss12 thì lúc nhập chữ vào cũng chấp nhận và xuất ra màn hình độ dài xâu ... nếu sử dụng cách đó mà khi ta nhập chữ vào hay nữa chữ nữa số vào, máy không chấp nhận và máy sẽ bắt nhập lại số thì làm thế nào ah ? Vì đề bài kiu độ dài số nguyên mà ?