Uses crt; Var i,n,dem:longint; Begin ClrScr; dem:=0; Write('Nhap so nguyen n: ');ReadLn(n); n:=abs(n); while n>0 Do Begin n:=n div 10; dem:=dem+1; end; writeln('so ',n,' co ',dem,' chu so'); Readln End.
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.
