đếm số nguyên dương N có bao nhiêu chữ số,viết chương trình pascal
2 câu trả lời
uses crt;
var n,d: integer;
begin
clrscr;
write ('nhap n: '); readln (n);
while n>0 do
begin
n:=n div 10;
inc(d);
end;
writeln ('n co ',d,' chu so');
readln;
end.
uses crt;
var n,dem:Integer;
begin
clrscr;
write('nhap n ');ReadLn(n);
repeat
n:=n div 10;
dem:=dem+1;
until n=0;
write('co ',dem,' so');
readln
end.
