Uses crt; Var i,n,dem:longint; Begin ClrScr; dem:=0; Write('Nhap so nguyen n: ');ReadLn(n); write('so ',n,' co '); n:=abs(n); while n>0 Do Begin n := n div 10; dem:=dem+1; end; writeln(dem,' chu so'); Readln End.
uses crt; var n,i,d : longint; st : string; begin clrscr; d:=0; write('Nhap so nguyen n :'); readln(n); str(n,st); for i:=1 to length(st) do d:=d+1; write('Cac chu so cua n la:', d); readln end.
