Nhập vào 1số nguyên dương N (điều kiện N nhỏ 100 kiểm tra xem số N có mấy chữ số
2 câu trả lời
uses crt;
var n:longint; s:string;
begin
clrscr;
n:=101;
repeat
write('n=');readln(N);
until n<100;
str(n,s); writeln(length(S));
readln;
end.
program oken;
uses crt;
var n,dem: byte;
begin
clrscr;
write('Nhap n: '); readln(n);
dem:=0;
while n<>0 do
begin
n:=n div 10;
dem:=dem+1;
end;
writeln('Co ',dem,' chu so');
readln;
end.