Question

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 đó.

Answer 1

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.

Answer 2

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.